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APPLE X TRS-80: O DUELO DOS OITO BITS 
Neste artigo, Aldo Felício Naletto Jr. analisa os pontos 
fortes e as desvantagens de cada uma dessas famílias. 


1 CAMPEONATO 


Programa de Marcelo Albuquerque para acompanhar a 
performance de times de futebol num campeonato. Linha Sinclair. 


SCREEN 1 NO MSX 
Milton Maldonado Jr. e Pierluigi Piazzi apresentam 
técnicas que permitem explorar os recursos gráficos desta função. 
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f uita gente tem nos escrito a propó- 
M sto do Congresso Nacional da 

SUCESU e de seu segmento de mi- 
croinformática, anunciados em primeira 
mão no editorial da revista nº 54. 

Denominado MICROINFO, o segmen- 
to dedicado à microinformática buscará, 
através de um encadeamento planajado das 
palestras, não só introduzir ferramentas 
para seleção e utilização dos micros (como 
“Linguagens de programação”, prof. Paulo 
Bianchi; “Planilhas Eletrônicas”, Charles 
Girdwood; “Comunicação de dados”, Leme 
Lopes; “Processadores de Texto”, Luiz 
Frederico da Cunha etc.), mas também abor- 
dar as famílias de micros presentes no mer- 
cado brasileiro (“IBM-PC XT”, Neison 
Couteiro; “IBM-AT”, Barbosa; 

“Apple”, Stephen Kovaks; “TRS-B0”, Pierre 
Jean Lavelle; “TRS-Color”, Marcel Fontou- 
ra; “Sinclair”, Cláudio Bittencourt; “M. 
Pierluigi Piazzi e “Macintosh”, com prof. 
Antonio Costa). Além disto, serão ainda 
abordados temas atuais como “Computação 
Gráfica”, Jaime Nisembaum; “Redes de 
Micros”, Amaury Moraes Jr.; “Ligação Mi- 
cro x mainframe”, Pedro do Livramento; 
“Micro e o Centro de Informações”, Fernan- 
do Moutinho; “Programação de Jogos”, 

| Renato Degiovani; “Software Educacional”, 
Oscar Burd ou “Sistemas Especialistas”, 
com o prof. Emmanuel Lopes Passos, en- 
tre outros assuntos. 

Você deve ter notado que muitos dos pa- 
lestrantes convidados para o MICROINFO 
são conhecidos — e habituais — colaborado- 
res da revista MICRO SISTEMAS. E muitos 
deles têm também se lançado como autores 
de livros. Neste mês, gostaria de enviar 
meus votos de sucesso a esses amigos (se por 
acaso eu esquecer alguém, peço que me 
recordem). Na editora McGraw-Hill traba- 
lham José Eduardo Maluf de Carvalho (“Ba- 
sic avançado para o TK90X"') e os amigos 
Oscar Burd e Luiz Sérgio Moreira, que têm 
diversos projetos voltados para a linha MSX. 
Na Campus, uma das editoras mais ativas 
da área, estão Nelson Santos (editor da Cam- 
pus e autor do livro “Além do BASIC"); Raul 
Udo Christmann (“Visitrend/Visiplot"'); 
Fausto de Almeida Barbuto ("35 progra- 
mas BASIC"); Maurício Costa Reis (“Série 
Usuários”); Jorge da Cunha Pereira Filho 
(autor de “Basic Básico"); Emmanuel Lopes 
Passos (“Micro e minicomputadores brasi- 
loiros"); Rafae! Sommerfeid e Evandro 
Mascarenhas de Oliveira, estes dois com 
obras a caminho. Atuam ainda na área o 
prof. Eduardo Chaves, da nossa seção 
Iniciante, que assina o livro “Micro-revela- 
ções”, pela Cartgraf e Pierluigi Piazzi, autor 
de diversos títulos e dono da Editora 
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Como vai a linha Sinclair no mercado brasileiro, suas 
tendências e as novidades destes micros no exterior. 


VERSÕES DO PASCAL 
Descrição de Maurício C. Reis das características dos 
compiladores UCSD e TURBO Pascal, para a linha Apple. 


A TELA DO TK90X 
Álvaro Ferreira Borja discute a estrutura da tela do TK90X 
e apresenta a técnica adequada para a manipulação do vídeo. 


MODOS GRÁFICOS NO COLOR 
Algumas rotinas simples, desenvolvidas por Daniel Detanico, 
para que você aproveite os recursos gráficos do TRS-Color. 


NOVOS COMANDOS DO BASIC 
Programa para acrescentar novos comandos em BASIC ao DOS 
de micros TRS-80 mods. | e Ill. Autoria de Sérgio S. Cruz. 
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O sorteado deste mês, que receberá uma 
assinatura anual da revista MICRO 
SISTEMAS, é Cleiber Rogério Rodrigues, 
de Itumbiara - GO. 


ESTATÍSTICA APLICADA 


Digitei todas as partes do programa “Esta- 
tística Aplicada", desde o nº 44 de MS até o 
48. O programa, conforme os vários exemplos 
apresentados, roda bem, com exceção da parte 
“Regressões e correlações não lineares”, que 
apresentou erro A /3128. 

Substituindo-se a linha 3128 por 3128 LET 
SLY2 = SLY2 + LN ((T(1)**2) é apresentada 
uma tela, como indicado na figura 2, pág. 24, 
do nº 48 de MS. Porém, os valores de R (coe- 
ficiente de determinação) aparecem alterados, 
ou seja: Exponencial, R = 48.138011; Geomé- 
trica = 2.3680611;e Parábola, R = 6.4384861. 

Face ao exposto, gostaria de obter O pro- 
nunciamento do autor do artigo, pois utilizei 
um microprocessador modelo TK85 com 48 
Kb e NE Z-8000 com expansão de 16Kb, 
não conseguindo resultados satisfatórios. 

Miguel De Crescenzo 
São Paulo — SP 


Prezado Miguel, de acordo com nosso pro- 
cedimento habitual, enviamos sua carta ao au- 
tor do programa. Aí está sua resposta: 

“O programa, ta! como foi listado na revis- 
ta, realmente apresenta problemas, quando o 
vator de um dado (variável !) é menor que a uni- 
dade. 

O problema ocorre devido ao logaritmo de 
um número menor que ? resultar num valor 
negativo, causando erro do tipo A. Para contor- 
nar a situação, basta substituir a linha 3128 
do programa por 3128 LET SLY2=SLY2+LN 
T() * UNTIL). 

A mesma alteração deve ser feita na linha 
3122, ficando assim: 

3122 LET SLX2=SLX2+LIN Wil) * LN W(I). 

Meus agradecimentos pela constatação, já 
que nos meus testes os valores sempre foram, 
casualmente, maiores que a unidade." 

Rau! Udo Christmann 
Porto Alegre — RS 


SOS AOS LEITORES 


Preciso de ajuda com um Atari XL america- 
no que, ao que me parece, possui O circuito de 
modulação para o sistema inglês incompleto, 
faltando um Cl. Assim, caso algum leitor possua 
seu esquema ou saiba modificá-lo, gostaria de 
saber como fazé-lo. Qualquer correspondência 
para o CTA — IAE — EIC, Av. Paraibuna S/N, 
Cláudio Henrique de Castro 
São José dos Campos — SP. 


CORRESPONDÊNCIA 


O Sinclair-Sul Club, entidade sem fins lucra- 
tivos, oferece aos usuários de microcamputado- 
res TK85 e TK90X, ou compatíveis, grande 
acervo de programas inéditos para trocas. 
Oferecemos também um intercâmbio de infor- 
mações técnicas. Cartas para Engº Gilson Perei- 
ra, Rua Duque de Caxias, 188, CEP 96200. 
Gilson Pereira 
Rio Grande — RS 


PROGRAMAS 
PARA ENGENHARIA 


Adquiri recentemente um AP-Il com 64 
Kb e gostaria de obter informações sobre a 
área de Cálculo de Estruturas de Concreto Ar- 
mado: edificações, pontes e projetos rodoviá- 
rios. Cartas para a Rua 88 - C, nº 33, Setor Sul. 
Heloísa Gusmão Lima 
Goiânia — GO 


Procuro algum clube onde eu possa fazer 
parte, adquirindo e apresentando programas de 
engenharia. As correspondências podem ser en- 
viadas para a Rua Tito Botelho Martins, 45/ 
402, São Bento. 

Luiz Carlos Ferreira Pacheco 
Belo Horizonte — MG 


MS AGRADECE 


Primeiramente, como assinante de MS, 
parabenizo-lhes pelo excelente nível das maté- 
rias publicadas, ressaltando “Cópia de Progra- 
mas: Ataque”, publicada em MS nº 53. Acredi- 
to no futuro da informática, mas só o vejo ser 
constituído por profissionais e não por violado- 
res da criatividade alheia, ou seja, OS piratas. 

Gostaria de me corresponder com usuários 
do TK90X e clubes especializados. Cartas para: | 
Micro-Clube Pro-Work, A/C Cleiber Rogério 4 
Rodrigues, Rua Santa Rita, 20 andar, sala 21, + 
Cx. Postal 247, CEP 76.100. 4 
Cleiber Rogério Rodrigues 
Itumbiara — GO 


PONTO DE VISTA 


Acho muito bom que se publiquem artigos 
como “O Padrão MSX", de Oscar Júlio Burd e * 
Luiz Sérgio Moreira, em MS nº 53. Mas, venho 
reparar o que considero uma injustiça cometida 
pelos autores e por muitos outros usuários de 
micros. 

Eles citaram o Apple (e consequentemente 
seus compatíveis) como ''o micro que mais se 
aproxima dos MSX". Será que sabem que o 
TRS-Color Computer, carinhosamente chama- 
do de CoCo, com diversos compatíveis nacio- 
nais como o CP 400, Codimex e Color-64, 
também possui três microprocessadores como 
os MSX? Sabem eles que sem qualquer alteração 
de hardware, o CoCo pode gerar sons em quatro 
canais simultâneos, em oito oitavas, e 31 gra- 
duações de volume, além de várias outras opções 
e de simular diversos instrumentos? 

Sabem que o TRS-Color já tem um grande 
número de adeptos em todo o mundo, com mi- 
lhares (é isso mesmo: milhares) de programas; 
vários sistemas operacionais, como o FLEX/ 
UNIX; linguagens como BASIC, C, FORTRAN, 
Pascal, Assembler, LISP, LOGO, COBOL etc.; 
dezenas de periféricos, como drives, gravadores 
especiais, joysticks, impressoras, modems (o 
CoCo já vem com interface RS 232-C), cartu- 
chos, monitores, caneta Ótica, mesa digitaliza- 
dora, digitalizador de imagens, plotters etc.? 

Sabem ainda que, por ser de uma tecnologia 
mais moderna (a última de 8 bits, já com carac- 
terísticas de 16), seu preço é bem menor que 
o dos micros anteriores? 

Adriano de Arruda Botelho 
Amparo — SP 


Envie sua correspondência para: ATI — Análise, 
Teleprocessamento e Informática Editora Ltda., 
Av. Presidente Wilson, 165/gr. 1210, Centro, 
Rio de Janeiro/RJ, CEP 20030, Seção Cartas/ 
Redação MICRO SISTEMAS. 
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O APPLE DA DIGITUS 


A DIGITUS lança o DGTAP um 
microcomputador pessoal totalmente 
compatível em hardware e software con 
a linha APPLE Il PLUS e seus similares. 


O DGTAP é um micro versátil, pois, além 
de lhe ser útil no trabalho, você poderá 
também usá-lo no lazer e nos estudos. 


Devido ao grande número de program 
desenvolvidos para a linha APPLE, o DG 
AP tem ampla aplicação tanto para as' 
pequenas e médias empresas como par 
os executivos e os profissionais liberais 
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Projetado para atender e acompanhar o 
desenvolvimento do usuário, o DGTAP 
possui estrutura para aceitar futuras 
expansões, crescendo de acordo com 
suas necessidades. 


O DGTAP tem todas as características 
básicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 
numérico reduzido incorporado à CPU. 


Além de todas as placas disponíveis para 
expansão, você tem ainda a garantia da 
tecnologia DIGITUS. 


Conheça o DGT-AP nos endereços abaixo 
e nos revendedores autorizados DIGITUS. 





MATRIZ: Rua Gávea, 150 - Jardim América - Fone: (031) 332.8300 - Telex: 3352 - 30430 - Belo Horizonte - MG 
RIO DE JANEIRO: Rua Barata Ribeiro, 391 sl. 404 - Copacabana - Fone: (021) 257.2960 
SÃO PAULO: Rua Faxina, 47 - Centro - Fone: (011) 572.0137 





Apple ou TRS-80, qual escolher? A resposta não é das mais fáceis. 
Dê uma lida nesse artigo e tire suas próprias conclusões. 
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O duelo dos oito bits 


Aldo Felício Naletto Júnior e Arnaldo Napolitano Sanches 


uem é melhor, Apple ou TRS-80? Desde 1976, 

ano em que os primeiros modelos das duas famílias 

foram lançados, esta pergunta tem ocorrido a mi- 

lhares de futuros compradores, já proprietários e 
eternos curiosos. Na realidade, não existe uma única resposta 
para essa questão. Como tudo nesse mundo, cada uma dessas 
famílias apresenta seus prós e contras. 

Neste artigo, procuraremos enfocar os aspectos mais impor- 
tantes das duas, expondo seus pontos mais fortes e também 
suas mancadas mais notáveis. Como não é possível abranger 
tudo de uma só vez, a comparação será feita em três grandes 
tópicos: linguagem residente, hardware e sistema operacional. 
Além disso, serão mostrados também quadros comparativos 
confrontando, as características das duas linhas nos dois pri- 
meiros tópicos. Não será feito um quadro comparativo dos 


sistemas operacionais, devido à grande quantidade e comple- 


xidade dos diversos sistemas existentes. Caso você pretenda 
se aprofundar no assunto, recomendo a leitura das referências 
dois até nove da bibliografia, no fim deste artigo. 


LINGUAGEM RESIDENTE 


Tanto o BASIC do TRS-80, quanto o do Apple foram pro- 
duzidos pela Microsoft. Esta competente softhouse americana 
criou para computadores CPM o MBASIC, um muito bem feito 
(e depurado) interpretador BASIC, isso nos primórdios da era 
dos microcomputadores. Tendo sido contratada pela Apple 
e pela Tandy para substituir os tímidos BASIC originais de suas 
máquinas por interpretadores mais sofisticados, a Microsoft 
tratou de aproveitar o máximo que pôde do MBASIC nos pro- 
dutos destinados aos seus novos clientes. Devido, porém, às 
diferentes características de hardware das duas máquinas, e 
também a posteriores modificações feitas pela própria Apple 
no seu interpretador, os resultados finais foram bastante diver- 
sos. 

Uma vez que o Z-80 é uma versão aperfeiçoada do 8080 
(microprocessador para o qual o MBASIC foi escrito), a 
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Microsoft teve pouco trabalho para escrever o BASIC do 
TRS-80: bastou cortar alguns comandos do MBASIC e trocar 
as instruções JP do 8080 pelos saltos relativos do Z-80 (onde 
possível), para que o interpretador coubesse nos 12 Kb de 
ROM disponíveis. Já no Apple, cujo microprocessador (o 
6502) é radicalmente diferente do 8080, todas as rotinas tive- 
ram de ser reescritas. Em consequência, a depuração do BASIC 
do TRS-80 é bem melhor — praticamente a mesma do MBA- 
SIC. Além disso, com a finalidade de deixar espaço para os 
comandos gráficos, todo o BASIC do Apple foi bastante sim- 
plificado, resultando em um interpretador bem inferior ao do 
TRS-80. Os pontos em que o BASIC do Apple leva vantagem 
sobre o do TRS-80 são os seguintes: 
Velocidade — Indiscutivelmente esta é uma zebra, pois o clock 
do TRS-80 Mod III é cerca de duas vezes maior que o do 
Apple. Embora haja atenuantes, no caso que tendem a equili- 
brar as coisas (tais como a maior complexidade do BASIC 
do TRS-80, a necessidade de mais ciclos de clock por instru- 
ção no Z-80 e o sistema de leitura de teclado, por software no 
TRS-80 e por hardware no Apple), o fato é que o BASIC do 
Apple é realmente mais eficiente em termos de velocidade. 
Isso é mais notável nas operações aritméticas básicas, que che- 
gam a ser duas vezes mais rápidas. 
Organização de Memória — os usuários do TRS-80 são obriga- 
dos a especificar através do comando CLEAR quantos bytes 
serão reservados para o armazenamento de strings. No Apple, 
isso não é necessário, pois o sistema automaticamente reserva 
para esta finalidade toda a memória livre. Esta abordagem é 
m mais feliz que a do TRS-80, tanto assim que foi adotada 
em todas as versões mais recentes do próprio MBASIC. 
Comandos Gráficos — em vista dos vários modos gráficos dis- 
poníveis no hardware do Apple, era mesmo de se esperar que 
seus comandos gráficos fossem mais numerosos que os do 
TRS-80. Mas a vantagem do Apple não é somente devido à 
mãozinha do hardware: seus comandos gráficos são realmente 
melhores, fazendo coisas tais como traçar linhas e 
desenhar figuras em alta velocidade a partir da tabela de 
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formas, com ângulo e tamanho controláveis pelo usuário, o 
que decididamente não depende do hardware do equipamento. 
Conexão com Rotinas Assembler — os comandos CALL e 
& do Apple são ótimos para a ligação de programas em BASIC 
com rotinas em Assembler, tanto que compensa largamente o 
fato da função USR do Apple ser bem menos completa que a 


do TRS-80. Outra vantagem do Apple vem da boa divulgação - 


que a Apple Computer Inc deu às rotinas do sistema operacio- 
nal/monitor Assembler (últimos 2 Kb da ROM) — o User 
Reference Manual fornecido pela Apple trazia inclusive a lista- 
gem fonte destas rotinas, algo inimaginável para nós, consumi- 
dores tupiniquíns. 

Do lado do BASIC do TRS-80, os pontos mais fortes são 
os seguintes: 
Tipos de Variáveis — o TRS-80 trabalha com dois tipos de 
variáveis reais, precisão simples (sete dígitos) e precisão dupla 
(16 dígitos), ocupando respectivamente 4 e 8 bytes, enquanto 
o Apple tem apenas uma, que ocupa 5 bytes e tem precisão 
de nove dígitos. Isso é particularmente importante nas aplica- 
ções financeiras e científicas, onde a precisão de nove dígitos 
do Apple normalmente não é suficiente. Outro ponto interes- 
sante a ser mencionado é que, embora ambos tenham variáveis 
inteiras, somente o TRS-80 tem rotinas matemáticas específi- 
cas para inteiros (são mais rápidas!). O Apple converte tudo 
para real antes de fazer contas, sendo portanto mais lento, 
com valores inteiros do que com os reais (que não precisam 
de conversão alguma). Obs.: é importante notar que os valores 
máximos suportados pelas variáveis de ambos são +1E38 e 
- 1E38, independendo do número de dígitos de precisão. 
Edição de Linhas de Programa — o comando EDIT do TRS- 
80 pode ser meio complicado para os iniciantes, além de apre- 
sentar na tela resultados absolutamente malucos se usarmos o 
backspace em certas circunstâncias, porém nem de longe pro- 
voca no usuário acessos de fúria, similares aos que o modo de 
edição do Apple tem causado. Para se editar uma linha no 
Apple, basta listá-la e passar o cursor sobre as partes que nos 
interessam, reescrevendo apenas o que for necessário. Embora 
em essência o método seja genial, o que acontece na prática é 
que o execrável sistema de listagem do Apple enfia por conta 
própria montes de espaços extras nas linhas que lista, fazendo 
com que elas frequentemente passem de 240 caracteres, tama- 
nho máximo admissível, Além disso, devido a inclusão espon- 
tânea das margens esquerda e direita por parte da rotina de 
listagem, as constantes string que têm o infortúnio de ficar 
metade numa linha e metade na seguinte ganham inesperada- 
mente 12 espaços extras no meio, levando o usuário à loucura 
completa. 
Bugs Intemos — é outro grande pesadelo dos usuários do 
Apple. Saltos inesperados para o monitor durante comandos 
GET e erros FALTA MEMÓRIA nos comandos diretos não 
são exatamente raros, além de que o comando CONT nem 
sempre funciona direito. O trapeamento de erros através do 
ONERR também não é lá essas coisas, pois a pilha do BASIC 
não é restaurada, podendo ocorrer erros NEXT SEM FOR e 
RETURN SEM GOSUB, quando tentamos retomar a execução 
do programa. Já do lado do TRS-80, estas coisas simplesmente 
não acontecem — como foi mencionado mais acima, o BASIC 
do TRS-80 é o próprio MBASIC encurtado (verificamos que 
grande parte das rotinas confere byte a byte!), tendo portanto 

uase o mesmo nível de depuração que este. 

mandos e Funções — é um dos pontos em que mais se sente 
a superioridade do TRS-80. Embora o Apple conte com alguns 
comandos simplesmente geniais, tais como GET (não é o 
mesmo GET do TRS-801), POP, HIMEM:, LOMEM:, STORE e 
RECALL, algumas instruções vitais foram mal implementadas 
ou nem sequer existem nele. As principais mancadas do Apple 
são o IF, que não admite ELSE; o PRINT, que não admite o 
modo USING; o CONT, que não funciona direito; e o RESU- 
ME, que não admite número de linha e sempre tenta reexecu- 
tar à instrução em que houve erro. Fazem falta também os 
comandos AUTO, MIDS$ (de atribuição), LINE INPUT, 
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APPLE TRS-80 


» RAM: 48 Kb -« RAM: 48 kb 

- ROM: 12 Kb - ROM: 14 Kb 

- E/S: 4 Kb « E/S: 1 Kb(teclado) 

- RAM VÍDEO: Incluída nos 48 Kb |. RAM VÍDEO: 1 Kb 
de RAM. 


. TEXTO: 24 lin. X 40 col. 
- GRÁFICO: 
Baixa Resolução: 40X48, 15 


- TEXTO 1: 16 lin. X 64 col. 

- TEXTO 2: 16 lin. X 32 col, 

- GRÁFICO 1: 128X48 

cores. - GRÁFICO 2: 64X48 
Alta Resolução: 280X192, 2 
conjuntos de 4 cores. Obs.: 

- MISTO: 
Baixa Resolução: 40X40, 15 1a. 


Gráficos e texto podem 
ser misturados na mesma te- 
Seleção de modo 32 ou 

cores + 4 linhas de texto. 
Alta Resolução: 280X160, 2 


conjuntos de 4 cores + é 


64 por software. 


linhas de texto. 


Obs.: Todos os modos disponiveis 
em duas páginas gráficas, sele- 
cionáveis por soft. 
- Interface para gravador. Modelos I e III: 
- Alto-falante interno. - Interface para gravador. 
.- 4 saídas e 3 entradas digi- - Uma saída de expansão de 50 
tais de um bit cada. pinos. 
- 4 entradas analógicas para - Circuito de leitura de te- 
paddles ou joysticks. clado controlado por soft 
M|]. 8 soquetes de expansão, 
cada um tendo reservados Só no Mod III: 
para si 8 bytes de RAM, - Alto-falante interno. 
16 endereços de acesso e « Relógio. 


uma área de 256 bytes de 


- Interface para impressora. 


uso geral. 
- Circuito de leitura de te- 


clado independente. 





Quadro comparativo de hardware. Embora pertença ao conjunto de 
E/S (entradas e saídas), o vídeo ficou em um quadrinho separado devi- 
do ao maior número de itens a ele relacionados. 


LSET e RSET, além de todos os comandos de operação de 
disco, que já são previstos no BASIC do TRS-80. Em termos de 
funções, as piores ausências no BASIC do Apple são STRINGS, 
VARPTR e INSTR, pois estas funções são muito valiosas e 
não podem ser sintetizadas simplesmente através de PEEKs, 
tal como se faz com ERR, ERL e INKEY$ (outras ausentes). 
Finalmente, os operadores AND, OR e NOT. No TRS-80, 
estes operadores são o que parecem — AND, OR e NOT boole- 
anos feitos bit a bit —: já no Apple, só são considerados os 
estados FALSO (0) e VERDADEIRO (qualquer coisa dife- 
rente de 0) dos operandos, sendo sempre retornados os valores 
de O ou 1. A consegiência é que no TRS-80 pode-se testar, 
acender ou apagar bits individualmente através destes operado- 
res, enquanto no Apple é necessário um verdadeiro festival de 
operações para isto. 


HARDWARE 


Aqui as coisas se invertem completamente. Para quem é do 
ramo, é difícil fugir à impressão de que o circuito do TRS-80 
(o do original, pois alguns dos nacionais são bastante diferen- 
tes) parece coisa de principiante, devido ao grande número de 
portas lógicas inaproveitadas ou mal escolhidas. Já o do Apple 
é universalmente reconhecido como obra-prima do gênero, por 
ser um projeto extremamente inteligente, “enxuto” e versátil. 

Embora ambos tenham mais ou menos o mesmo número de 
componentes, o hardware do TRS-80 apresenta apenas dois 
modos de tratamento de vídeo, uma interface para gravador e 
um único conector de expansão (isso vale para o TRS-80 Mod. | 
I, o Mod. III também tem alto-falante interno, relógio e inter- e 
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face impressora, porém o número de componentes é 
mio). Eáquento isso, o hardware do Apple incorpora cinco 
modos de tratamento de vídeo (só texto, só gráficos de alta 
ou baixa resolução e misto texto + gráficos de alta ou baixa 
resolução), todos disponíveis em duas diferentes páginas de 
memória; cor; oito soquetes individuais de expansão, quatro 
entradas analógicas (para paddles ou joystick), três entradas 
e quatro saídas digitais de um bit; alto-falante interno, interfa- 
ce para gravador e circuito de varredura automática de teclado. 


De todas as características do Apple, sem dúvida alguma, as 
mais importantes são a capacidade gráfica e os soquetes de 
expansão. Devido a estes últimos, praticamente qualquer tipo 
de implementação ou alteração pode ser feita no Apple, 
tornando-o compatível com as necessidades de cada usuário 
em particular. Expansão de memória, interface serial, caneta 
ótica, gravador de EPROM, conversores A/D e D/A, expansão 
de vídeo para 80 colunas, dodisco em RAM e até mesmo 
um cartão que substitui o fraco 6502 pelo Z-80 (o famoso car- 
tão CP/M), são apenas alguns dos circuitos disponíveis, todos 
eles adaptáveis sd pe através de um simples encaixe, dispen- 
sando, assim, pe especializado. 


Outra grande vantagem proporcionada pelos soquetes é a 
presença neles de sinais e entradas de controle que tornam 
excepcionalmente simples o projeto de circuitos de expansão 
ou interfaceamento — daí o Apple não ter rivais em laborató- 
rios de universidades, onde se mostra insubstituível em opera- 
ções de controle e aquisição de dados. 


TRS-BO 


ORANDOS Ux 


ELSE - O contreri to THEN (ambos ferem parte do comendo IF 


PRINT USING enprS.itemi tom Variante do comando PRINT 
que permite definir o formato de impressão. 

«+ AUTO aâmic, incr 
gitação, começando por 


« RESUME nlin - 


- Numera automaticamente as Linhas durante a dj 
“ânlo! e com incremento 'incr', 
Reassumo a execução do programa na Jínha 'nlin' 
após erro trepeado por ON ERROR, Pode-se simular um RESUME niin 
no Apple através dos comandos sbairo 

CALL 627248: GOTO niim 

SET 1.y 


RESET 1.y 


- Acende ponto gréfico nes cocrsenadas 2.y 


Apaga ponto qráts nas coordenadas 1.Yy 


COMANDOS DISPONÍVEIS SÓ NO BASIC DISC 


WIDS vers.pos, est icenpri Subotitus “ext ceracteres do string 


contido em 'varS' é partir da posição 'pos 
esprs'. 


- Atribui à variável 


por outros “est 
tarados do resultado da espressa: 


LSET vers-enprs var$S' o resultado de 


*exprS', alinhando-o à esquerda e preenchendo o resto com espa 
ços em branco 

« RSET varS=expr9 

à LINE INPUT varf 


caráter e respeita os espaços iniciais e finais. 


Mesma colma, porém alinhando h direita, 


Mesma coisa que INPUT, porém aceita qualquer 


rusções 


INSTE (pos,stri strz Pr sta “etr7' em 'strl e partir Sa 


posição 'pos Volta e posição es que str7 foi encontrado 


ERR - Fornece digo 4 


pede 


itumo erro ocorrido “o Apple 


ser sintetizado por PRRS(24) “ se ONERR estiver ativo 


Ea - Fornece name r da linha es que ccorres o vlitimo erra mo 
Apple. pode ser sintet, sado . es 
PEER ZIG)cJSecpren (21% 

INEEYS 


CHAS( (PEER (49152 


MENS estiver ativo) por 


- Fornece ultimo carater dSigitado 


Lam) Ci PEER 49152/)127) 


so Apple 

(Obs.: faça sempre POLE 491684,0 logo apos usar esta expressão, 
isso deixara o teclado pronto para a próxima tecla) 

+ STRINGS(n,car) 

' VARPTR(var) 
POINT (x,y) 


Gera mtring de 'n' caracteres tquala a 'oar' 
Fornece o endereço em que está a variável 'var', 
Volta “1 se o ponto gráfico 'x,y' estiver aceso, 


O se estiver apagado 


SISTEMAS OPERACIONAIS 


Nesse aspecto, o TRS-80 se recupera da lavada tomada no 
tópico anterior. agraria ora pb gang seg 
disponíveis para a linha -BO (como, por exemplo, NEW. 
DOS80, LDOS e DOSPLUS) são bem melhores que o DOS 
original do Apple, o DOS 3.3 (recentemente a Apple lançou 
o PRODOS, um novo sistema operacional que promete muito). 
As principais vantagens são: maior capacidade em disco (180 
Kb contra 140 do Apple), muito maior quantidade de coman- 
dos a nível de DOS, maior velocidade de leitura e gravação; 
a complementação dos comandos do BASIC residente, e o 
acréscimo de um bom número de novos comandos especiais, 
acessíveis via comando CMD, tais como ordenação de matrizes, 
eliminação de comentários e espaços em branco e busca de 
palavras específicas nos amas. 

Aliado a tudo isso, o - BO tem ainda o mérito de contar 
com comandos de operação de arquivos já concluídos no 
BASIC, os quais tornam -se ativos sempre que o DOS é “boota- 
do”. No Apple, todos os comandos são passados ao DOS atra- 
vés de instruções PRINT — pedir um diretório dentro de um 

rograma, por exemplo, deve ser feito através de PRINT 

HR$ (4) “CATALOG” — o misterioso CHR$ (4) serve para 
indicar ao DOS que a string que o segue não deve ser impressa, 
mas sim encarada como um comando. Além disso, as únicas 
instruções de entrada e saída de dados para o disco são INPUT 
e PRINT, o que limita bastante a gama de valores graváveis 
(como os usuários do Apple já devem saber, a instrução INPUT 
tem o mau-costume de ignorar espaços em branco e engusgar 


APPLE 


COMANDOS DE USO GERAL 


ALL endr - Chama rotina Assembler iniciada no endereço '* endr 


8 - mando Sefinido pelo usuário. O endereço da rotina correg 
pondente deve ser armasenado em SIF6-SIP7. 
+ POP - Descarta endereço de retorno da pilha, Após POP é possí- 
vel sair da sub-rotina através de GOTO. 
- GET varS - Espera a tecla mer acionada e põe em 'varS' o cará- 
terf digitado. Pode ser sintetizado no TRS-BO por: 
XXX varS=INKEYS:IF varf="" THEN KKK 
LOMEM: endr - Estabelece endr' como endereço inicia! de área 
de variáveis. 
nImEm endr - Protege a memória q partir de endr No TES-BO 
POE 165€1 ,emôr AND 25% PORE 7%€ CLEAR um 


OU .% é us valor qualquer: munca Sê um CLEAR sem argumento 


169547, endr 


nesta aplicação 


STORE verin$ - Greve em fita q matria ivariavei indesada) 
varind'. 
RECALL varind - ie em 


verioS a matria saiva em fita por STORE. 


COMANDOS GRÁFICOS BAIXA RESOLUÇÃO 

- GH - Liga modo misto qraticortento na página 1. 

. COLOR n - Define cor 'n' para ser usada nos próximos comandos 
yráficos. 

. PLOT 2,y - 
WLIN x1,x2 AT y - 


VLIN yl.y2 AT = - 


Acende ponto nas coordenadas 'x,y'. 
Traça linha horizontal entre 'x1,y' e 'n2,y'. 
Treço linha vertical entre 'x,yl' e 'u,y2' 
scan(z,y) - Função que fornece é cor do ponto “x,y 
COMANDOS GRÁFICOS - ALTA RESOLUÇÃO 
“Ga - Liga modo misto gráficortesto na página 1 
GR) - Liga modo grófico puro ma pógina 2 
COLOR = = - Define cor 'n' pars ser usada nos prozimos comandos 
qraticos. 
SHLOAD - Lê da fita arquivo de tabelas de formas 
DRAM mn AT x,y - 


- ADRAN n AT x,y - 


Desenha tabela de formas n' em E,y 
no modo 
cada ponto da figura e 


Desenha tabela de formas 'n' em “x,y 
XOR, no qual é feito ou esclusivo entre 
o seu correspondente na tela 

+ SCALE= n - Define escala de desenho a mer usada por DRAW/XDRAW, 
nOTe n - 
figuras por DRAN/XDRAN 


Define ângulo em que serão desenhadas as próximas 





Quadro comparativo das linguagens residentes Não foram abordados aqui os comandos que são comuns às duas linhas, nem os do TR$-80 usados 


especificamente para trabalho com 
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e... 


com aspas, “:” e “,”, 

Outra consequência extremamente exasperante disto é 
ue os comandos de operação de arquivos do Apple não po- 
em ser dados em nível direto; unido ao pouco confiável co- 

mando CONT, isto faz com que parar um programa no Apple 
através de Ctrl -C (equivalente à tecla BREAK do TRS-80) se 
torne um verdadeiro suicídio! Mas o DOS do Apple também 
tem lá suas vantagens. Uma delas é o fato de o DOS 3.3 ficar 
inteiramente contido na RAM — isso-não acontece com ne- 
nhum dos DOS do TRS-80, os quais têm de ficar carregando 
com frequência comandos do disco para a memória. Em con- 
sequência sua operação acaba sendo meio lenta, além de que 
um dos drives sempre deverá conter um disco que tenha o 
sistema operacional. Outra vantagem é o acesso a qualquer 
dos comandos do DOS sem que se perca a sequência do 
programa — o TRSDOS, por exemplo, costuma largar o usuá- 
rio no DOS quando se acessa um de seus comandos através de 
CMD “T”. 

Da parte do PRODOS, ainda um desconhecido por aqui, 
o grande trunfo parece ser a capacidade de operar adequada- 
mente com discos de capacidade quase infinita. Além da capa- 
cidade de gerenciamento de grandes memórias virtuais, o PRO- 
DOS apresenta uma organização hierárquica de arquivos, na 
qual cada disco pode ser dividido em vários volumes, cada um 
com seu próprio diretório. Cada item desses diretórios pode ser um 
arquivo ou um subdiretório, o qual por sua vez também pode 
ter arquivos ou sub -subdiretórios, e assim por diante. 

Com o PRODOS é possível ter em um determinado disco o 
volume CARTAS, o qual poderia ter os subdiretórios DAS 
NAMORADAS e DA MAMÃE, que por sua vez conteriam di- 
versos arquivos — as próprias cartas, no caso. No mesmo dis- 
co paderiam também ser mantidos outros volumes, tais como 
JOGOS ou APLICATIVOS, sendo o número de arquivos 
limitado apenas pela capacidade do disco em questão. Isso é 
inertiniável na administração de discos de grande capacidade 
— quem de nós já não se sentiu completamente perdido, 
mesmo com os míseros 140 Kb de nossos discos? 

Para as pessoas que já trabalharam profissionalmente 
com o DOS 3.3 do Apple, sem dúvida, a impressão que fica é 
a de que realmente é impossível fazer com ele qualquer'traba- 
lho mais sério. A baixa capacidade dos discos se une ao perdu- 
lário formato em ASCII que lhe é imposto pelas instruções 
PRINT e INPUT, tornando a vida do infeliz programador um 
inferno. Já nos DOS do TRS-80, as coisas são bem mais fáceis: os 
discos têm maior capacidade, os comandos de gravação e leitura 
são bem melhores, e além disso é possível gravar valores no 
econômico formato binário. Apesar de tudo isso, o que se 
observa na prática é que a disponibilidade de software para o 
Apple é muito maior que a de qualquer outra linha existente. 

Um possível responsável por isso é o fato de se poder alte- 
rar enormemente as rotinas de controle do drive, criando-se 
assim novos formatos de gravação, quase impossíveis de se co- 
piar. Outro motivo que não pode ser deixado de lado é a 
versatilidade do hardware, que abre áreas de atuação que para 
outros micros estão fechadas, tais como softwares gráficos 
ou de controle e aquisição de dados. 


CONCLUSÃO 


Como se pode ver, fazer uma comparação entre as linhas 
Apple e TRS-80 realmente não é muito simples, pois as duas 
famílias têm, na verdade, muitos pontos fortes e fracos 
a serem considerados. Do ponto de vista dos. softwares aplica- 
tivos e utilitários, pode-se dizer que todos os programas 
mais sérios que foram desenvolvidos para uma das famílias 
em particular, têm sempre um sósia adaptado a outro. Para 
complicar mais ainda as coisas, ambos contam, já há algum 
tempo, com circuitos que lhes permitem trabalhar com o CP/ 
M, o mais difundido sistema operacional do planeta. Isso eli- 
mina as diferenças em termos de sistema operacional e lingua- 
gens de programação, fazendo com que os únicos critérios a 
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serem levados em conta na hora de escolher um computador 
sejam o hardware, o preço e o gosto pessoal de cada um. 

Da parte do hardware, sem dúvida alguma a balança pende 
para o lado do Apple (talvez por isto as vendas dessa linha 
sejam maiores que as do TRS-80). Com relação ao preço, 
porém, as coisas são bastante mais dinâmicas, pois em grande 
parte este é ditado pelas tendências do mercado. Se as vendas 
do Apple começam a aumentar, por exemplo, os fabricantes 
do TRS-80 podem contra-atacar, reduzindo, na medida do 
possível, seus preços, e vice-versa. 

Considerando bem as coissas, não existe uma forma segura 
de se apontar um vencedor incontestável; tudo vai depender 
do momento e da aplicação que se tem em mente. 
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A Copa do Mundo está aí e, com este programa para a linha 
Sinclair, você pode ter o seu próprio controle dos resultados 
das partidas. O mais é torcer para que a Taça seja nossa! 








Campeonato 


Marcel G. de Albuquerque 


mo, 16 Kb, que avalia a perfor- 

mance de times de futebol num 
campeonato. Ele é auto-explicativo e 
uma boa maneira de entendêlo é 
executando-o. 

Para digitar o programa, proceda 
da seguinte forma: se o seu micro é 
um compatível com o ZX81, então 
apenas digite na íntegra a listagem do 
programa. Caso o seu computador seja 
um compatível com o ZX Spectrum, 
digite a listagem sem as linhas 8 e 612 
e substitua a linha 610 por: 


610 SAVE “CAMPEONATO” LINE 


ste é um pr a para micros 
E de lógica Sinclair com, no míni- 


Para utilizá-lo À pa primeira vez, 
deve-se digitar RUN e aparecerá na tela 
o menu principal com suas sete opções 
que serão explicadas a seguir: 


1) Cadastro das equipes — inicialmente, 
deve-se escolher a primeira opção para 
cadastrar as equipes. Confirmada a esco- 
lha, será perguntado o número de times 
participantes (para 16 Kb, o número 
máximo é cerca de 45, mas a faixa 
aconselhável é entre 10 e 15 times para 
que as classificações efetuadas nas opções 

+ 4e 5 não demandem muito tempo e 
também para que a gravação não fique 
muito longa, principalmente nos micros 
ZX81. O programa não aceita a inclusão 
de times com o mesmo nome; quando 
se tenta fazê-lo, aparece a mensagem 
“TIME JÁ CADASTRADO”, na linha 
21. Ao término da inclusão, é pedida 
uma .confirmação dos dados para que 
haja o retorno do menu principal. 


2) Resultados da rodada — nesta opção 
é que estão incluídos os resultados dos 
jogos entre os times cadastrados. Deve- 
se entrar com o nome do primeiro time 
e gols marcados, depois o nome do se- 
gundo e os gols e assim por diante. Após 
a entrada de cada jogo, surge a pergun- 
ta se você quer corrigir ou sair para 
o menu; se desejar continuar a inclusão 
de resultados, acione qualquer tecla, 
exceto M, C e BREAK, evidentemente. 
Se o jogo for confirmado, serão atribuí- 
dos pontos às equipes (sub-rotina na li- 
nha 800) a saber: time vencedor, 2 pontos 
ganhos, time perdedor, 2 pontos perdidos; 
e, se houver empate, 1 ponto ganho e 
outro perdido. 


3) Classificação —- para se entrar nesta 
opção, há que se ter entrado com alguns 
resultados ou surge a mensagem “AR- 
QUIVO DE RESULTADOS VAZIO”. 
Esta opção já dá acesso a um menu com 
sete opções: 


1. Pontos ganhos — lista os times em 
ordem crescente de pontos ganhos; 
se houver igualdade, prevalece a ordem 
alfabética. 

2. Pontos perdidos — mostra os times 
em ordem crescente de pontos perdidos. 
3. Número de vitórias — lista os times 
em ordem crescente de número de vitó- 


rias. 

4. Melhor ataque — classifica as equipes 
por número do Is marcados, dando 
também a média de gols por partida. 

5. Melhor defesa — classifica em ordem 
crescente de gols sofridos, mostrando 
também a média de gols por partida. 

6. Melhor saldo — classifica por ordem 
decrescente de saldo de gols. 


7. Menu — com esta opção, retorna-se 
ao menu principal. 

4) Situação Geral — esta opção mostra 
a classificação geral das equipes basca- 
da nos - ii critérios pela ordem 
preferencial: 


1. Maior número de pontos ganhos. 
2. Maior número de vitórias. 

3. Melhor saldo de gols. 

4. Maior número de gols. 


Caso persista o empate, o programa 
lista em ordem alfabética. 


5) Lista — com esta ' 
obtém-se na tela uma listagem das equi- 
pes em ordem alfabética. Note-se que 
a ordem alfabética está por coluna e, 
qualquer que seja o número de equipes, 
haverá uma distribuição equitativa de 
equipes por coluna. Nesta, como em to- 
das as outras opções, houve a preocupa- 
Y com a “quebra” de tela. 
6) Gravação — permite gravar o progra- 
ma com os dados para posterior utiliza. 
ção. Como já foi explicado, ao utilizar 
o programa pela primeira vez, ou quan- 
do não há dados, é io digi 
RUN, pois assim há a inicialização de 
certas variáveis. Em outros casos (como 
ape por erro), deve-se digitar GOTO 
or a variável U contém o valor 
+ que é o número da linha do 
LOOP principal do programa. 
7) Término — termina a execução do 
programa, causando um STOP. 


DADOS SOBRE O PROGRAMA 


As equipes estão armazenadas na ma- 
triz E$ e os resultados na matriz A, cuja 
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dimensão é N*9 (N é o número de equi- 
pes). Cada coluna deste conjunto tem a 
seguinte representação para cada time: 


A(123456789) 

1. Número de pontos ganhos. 
2. Número de pontos perdidos. 
3. Número de vitórias. 

-« Número de gols pró. 

. Número de gols contra. 

- Saldo de gols. 

- Número de jogos. 

« Número de empates. 

-« Número de derrotas. 


ola 


Na figura 1, você pode acompanhar 
a entrada de dados e o resultado no 
vídeo de cada opção dos menus. Foi 
tomada como base a chave com a pri- 
meira fase do grupo D, na Copa do 
Mundo; os resultados, naturalmente, 
são fictícios. 

Se o seu micro não é da família Sin- 
clair, não fique desanimado, pois este 
programa é totalmente modular e facil- 
mente adaptável a outras linhas de equi- 

entos. Então, o que você está espe- 
rando? Mãos à obra e depressa que a 
Copa está aí. 





Marcel G. de Albuquerque é Engenheiro Civil, 
trabalhando atualmente no INPOD, da Universi- 
dade Federa! de Alagoas. 


REM CRMEEONATO 
Sou MARGEE G DE ALBUQUERQUE 


" 


E OS GANHOS" 
NTOS PERDIDOS" 


vO- 


c 
XxX xo DC 
a MA MO 


URN 
M *LIMPA LINHA 21% 
PRINT AT 21,0;" 


RETURN 
4 «CARREGANDO Sg+ 
= 
o SCI) nEg(T) 
TURN 


RET 
REMO TOADASTRAMENTOS 
IF C=0 THEN GOTO 112 
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1) CADASTRO DAS EQUIPES 


BRASIL 
ARGÉLIA 


ESPANHA 
IRLANDA 


CLASSIFICAÇÃO 


PONTOS GANHOS 


RESULTADOS DA RODADA 
ARGÉLIA 
IRLANDA 
IRLANDA 
BRASIL 
IRLANDA 
ARGÉLIA 


ESPANHA 1 
BRASIL 2 
ARGÉLIA O 
ESPANHA 2 
ESPANHA 4 
BRASIL 2 


01) 
02) 
03) 
04) 


BRASIL 
ESPANHA 
IRLANDA 
ARGÉLIA 


PONTOS PERDIDOS 


01) BRASIL 
02) ESPANHA 
03) IRLANDA 
04) ARGÉLIA 


Nº DE VITÓRIAS 


01) 
02) 


BRASIL 3 
ESPANHA 1 
IRLANDA 1 
03) ARGÉLIA O 


MELHOR ATAQUE 


Cc EQUIPE GOLS MÉDIA 
BRASIL 1 
ARGÉLIA 1 
ESPANHA 2 
IRLANDA 2 


33 


MELHOR SALDO 


01) 
02) 
03) 
04) 


BRASIL 
ESPANHA 
IRLANDA 
ARGÉLIA 


C=CLASSIFICAÇÃO 
E= EMPATES D=DERROTAS 


Figura 1 — Exemplo de utilização do programa. 


ATi "ESTA OPÇAO ED 
E Bê SEXISTENTES, 
4 am 


Fig Eva 'S" THEN GOTO U 
PRE Eis 8; "CADASTRAMENTO" 
PRINT ,, “QUANTAS EQUIPES ” 
INPUT N 


LET E=Q 
IF I/a=INT (Iva: 


PRINT AT R,B;E$( 
IF A=19 ANb B=16 ren GOSUB 


NEXT II 

PRINT AT 21.0;"0K TL54NI" 
FAUSE P 

IF INKEYg="Nº THEN GOTO 100 
GoTO u 

LET A=1 

PRUSE 100 


CLS 
PRINT TAS 10;" 


RET 
REM SRESULTADOS DA RODADAS 
LET U=6 


CLS 

LET Uga'o 

FOR I=0 TO 19 
PRINT AT I,2;" 


THEN LET E 


CONT INUACAO”, 


PG=PONTOS GANHOS 
GP=GOLS PRÓ 


MELHOR DEFESA 


c EQUIPE MÉDIA 
BRASIL 

ARGÉLIA 33 
ESPANHA 

IRLANDA 


QUADRO GERAL DO CAMPEONATO 


C TIME PG J V E D GPGCS 


01 BRASI 06 03 03 00 00 07 03 04 
02 ESPAN 03 03 01 01 01 07 06 01 
03 IRLAN 02 03 01 00 02 04 06 -02 
04 ARGEL 01 03 00 01 02 01 04 -03 


V=VITÓRIAS 
S=SALDO GOLS 


J=JOGOS REALIZADOS 
GC=GOLS CONTRA 


He 


I,2,T8( TO 10); 
13,61; 


nto 
Den Don D- 


AP mGáIáme: 
o 


m 
m 


om 
manos +AMASDRAAO- 


I,19;T8( TO 10) 


I1,17;Gê 
T B0,0;"P/CORRIGIR. 


Po2MENU. M" 


NrEYs 
THEN cosur seo 
“Mº THEN GOTO 
FRINT AT 20,0;" 


GOSUB 70 

IF Wgs"C" THEN GOTO 210 
IE 1=15 THEN GOTO 208 
NEXT 1 


GOTO U 
REM s+CLASSIFICAÇÃO+ 
CLS 


GOSuB so 
PRINT AT 2,12; 
FOR 1=1 TO 

PRINT AT 2+41+2,2;1;")"; 


'OPCDES :* 
Xxg(I 


NEXT IT 

PRINT AT 15,2; "7)/MENU" 
INPUT M 

IF M$<º1º OR M$>"7" OR LEN 
THEN GOTO 322 

IF Mg="7" THEN GOTO U 

GOTO 12080 

REM +SITUACAO GERAL + 

IF Wj=1 THEN GOTO 436 

GOSUB 78 

GOSUB 865 

LET K=0 








1 


CAMPEONATO 



































410 FOR I=1 TOU N-1 500 REM +sLISTAGEM pas EQUIPES+ 1016 IF Mg&="4" OR M$="5" THEN GO 
412 IF BíI,1)>B(I+1,1) OR (BíI, 502 IF Hz1i THEN GO 530 SUB 2000 
11 =B(I+1,1) AND GBlI,5) »5B(I+2,3)5 504 FOR I=1 TON 1015 LET kK=0 
OR (BtI,1:=B(1+1,1) AND B(I,3)= SOS LET HEI) =Eg(I) 1020 FOR I=1 TO N-1 
B(l+1,3) AND B:iI,É)>B(I+1,6)) OR S08 NEXT I 1022 IF = pa AND M&<>"S" THEN 
(B(I,1)=BíiI+1,15 AND BiI,3)sB(I S10 LET H=1 GOTO 102 
+1,3) AND B(I,6) =B(I+1,8) AND Ef Sl2 LET k= 1024 IF E RARAL AS a Mg 
1,4) >B(1+1,45) OR (B(I,1)=B(TI+1, S14 FOR I=1 TO N-4 3 OR (BIT,UAL o o nB(I+1,U VAL $) 
1) AND BtI,3)=B(t1+1,3) AND BÍíI,6 S16 IF H&(I)<=H8(I+1) THEN GOTO AND SS(Ti<S$(I+1)) THEN Goro" tos 
1)=Bt1+1,6) AND BiI,d)eB(I+1,4) A 525 2 
ND S$iIJ)<Sg(<1+1)) THEN GOTO 432 318 LET Bgs=HM$1T) 1228 GOTO 1030 
414 LET Bã=5E(T) S20 LET M$(I) =H$t(1+1) 1028 IF B(I,VAL ME) »B(I+1,VAL M$ 
416 LET S$(I)=5g(I+1) Sa2 LET H$(1+1)=B$ OR (B(T,VAL M$) =B (744, VAL go 
418 LET S&1+1)=88$ s24 LET pas AND S$(I)<SgtI+1)) THEN GOTO 105 
420 FOR J=i TO SO 526 NExT 2 
422 LET Cil,J:=BéI,d) 528 IF Reo THEN GOTO Sig 1030 LET Bá=5si1) 
424 LET EiI,JI=BeI+1,4) 530 CLS 1032 LET S$&tIj=5g41+1) 
426 LET Bil+1,9)=C(2,4) 532 PRINT “RELACRO ALFABETICA D 12034 L S$(I+1) =B% 
428 NEXT 4 AS EQUIPES 1936 LET BzBlI,VAL M 
430 LET kK=1 5834 LET M= 1038 LET B(I,UAL Mg) =BlI+L,VAL M 
432 NEXT I 538 LET J= & 
434 IF K<>B THEN GOTO 405 S38 FOR I=1 TON 1040 LET B(I+1, VAL M$) =B 
456 CLS 540 PRINT AT M,J;H$(I 1042 IF o ad AND M$<c>"5" THEN 
438 PRINT *“ GURDRO GERAL DO E Sáz IF M=3 AND J=0 THEN LET x=I SOTO 195 
AMPEONATO'! NT tiN- nd 1044 LET w=Y 11) 
440 PRINT Pés TIME PGJ Mu S4d LET M=M+41 1048 LET Y(Ij=v(I+1) 
D SP GC 545 IF iM=x OR M=19) AND IcN TH 1048 LET y(I+1)=y 
442 FOR 1-1. N EN GOSUB a 1050 LET kKzi 
444 Eta OA to1º ND I<1O;T;0 “55 S45 NEXT 1052 NEXT I 
TO E) AND BiI,1)<lo 50 PRINT Far 21,0; "P/MENU: NL” 1054 IF K<>0 THEN GOTO 1018 
B(I,7) 1B( Ssa PAUSE P 1056 PRINT TAB 8 ERVA: att 
+13) <10 13 554 qi ii 1055 IF Mg="4" dic de péN' á- 
<10;B( Pg S5S6 GOTO INT “Cc EduIse O 
:B 9 ES: rio IF Sai? THEN GOTO B64 EDIA",,, 
1, [a 560 LET J=1?7 1060 LET 5=0 
15 Bt EE GOTO 574 1062 LET Ras 
6) NE 584 LET J=0 1064 LET 
k S66 PRINT AT 21,0;"P/CONTINUAR 1066 ne nisto OR M6="5"º THEN LE 
Par À N go Ec ES T L=1 
s68 PAUSE Pp 1258 FOR I=1 TO 
“Pa NUAR: Eos Rei W$=INKEYE o PR B(I,VAL RE) OL THEN GOTO 
450 FAUSE S74 LET M=53 = PRINT H “SSB; CSBII,U 
452 LET ss INKEVS 576 RETURN M$); 
454 GOSUE TQ 820 REM +GRAVACAO+ 1674 soro + 
4s6 CLS ema CLS 18076 S=5+ 
4558 NEXT I Eds ratl “DO GRAVADOR ESTA LIGA 1978 PRINT “or AND 8<10; S;")";86 
460 ERINT AT 21,0;"P-/MENU: NL” ea 2487 Dc ";BLI,VAL E 
462 PAUSE P as PAU 1088 IF Mg= "4" OR M$= ="5" THEN PR 
464 LET US=INKEY EE IF INKEVE Cos" THEN GOTO 66 INT TRE 28; INT (Y(T) +100) 7108; 
4658 LET J=1 R 1982 PRINT 
465 GOTO U 810 sos “CAMPEONATE" 1084 IF (I/18=INT (1/18) AND Mg« 
612 GOTO 40 2"4" BND MEc>"S'y OR (1/16=INT ( 
700 REMO *FIM+ 1/18) AND di OR MB="S")) TH 
702 PE EN GoTO a 
704 INT “ TERMINO NORMAL DE E 1286 GOT jo 96 
xEguoade E RENT AT 21,6; "P/CONTINUAR: 
800 REM +ATRIBUICAO DE PONTOS+ 1990 
TEA 802 LET Vz=l 1092 cero S=INKEVS 
sado S06 LEI Alea!) sR(Ed,7) 44 1096 LET L B(I-VAL M$) 
, =R(E2, +21 = 
A em es o sos LET RIEL.4) SA (E1,4) 461 + e Ade R= 
C i 14) =A (E2,4) +G2 
SOFTWARE PARA CP 400 E COMPATÍVEIS giz LET E(ES:5) zA (EL.5) +62 1102 BRINT'a AT 21,8;"P/MENU: NL" 
APLICATIVOS: Processador de Textos 15) =AtE2,5) +G1 
- 1 = 
PPTEXTO c/ acentuação em português, Plani- Sis ao PEER Ea :8) 165764 1168 LET ússrneva 
lhas Eletrônicas, Bancos de Dados, Pacotes In- 820 LET A(E1,1) =R(Ei,1)+(t2 AND 1110 GOTO 300 
Rd Cábéttiviaiha Erifio oeta emo OE POA JULHO ATAUE/OEPESAE 
UTILITÁRIOS: Editor/Assembler, Expansor s = 1) +(2 = 
61<62)+t1 AND G1aG2) 2004 LET Y(I)=ê 
ad Tela, Supertec, Compiladores, Copiadores, oG RA LET RÍEL,G) A (Es, 2) +(2 AND 2oes FF ai 14718, THEN LET YtI) eA 
< + z 4 / 5 
GRÁFICOS: DUMP P-500, Esquemas Eletrôni- 826 LET A(E2,2) =A(E2,2)+(R AND 2008 NEXT IT 
cos, Bjork Blocks, Comerciais, Graphicom e G1>G2)+(1 AND G1u62) 2010 RETURN 
outros. GE aMET R(E1,3)=A(E1,3)+t1 AND Gente Sra *+MENU -PRÍNCIPAL + 
LINGUAGENS: LOGO em português, PILOT a 
para professores e uso didático, PASCAL, Senar IEEE mA E O) ahi AND 2006 PRINT Ee ê 12; "0PCOES ." 
CBasic. 832 LET A(E1,9) =A(EL,9)+(1 AND 3008 PRINT AT É: BL CADASTRO DA 
JOGOS: Muitos títulos para mencionar aqui! G1<62) S EQUIPES" 
Nossos catálogos mostram as telas dos jogos. alisar RiE2,9) =A(E2,9) +(1 AND, DE SaDRdOU AT 6,F;"2) RESULTADOS 





Temos jogos exclusivos. Escolha melhor na 
Peek & Poke! 






836 LET A(E1,8)=AtE1,8)+(1 AND tg PRINT AT Z,F;"3)CLASSIFICAC 
RIEZ,8) =A(EZ,8)+(1 AND ERES PANE AT 10,F;"“4) SITUACRO G 





SOFTWARE PARA CP 500 / CP 300 
























— Processador de textos PPTEXT 500 DISCO ESSA DEU TRAD dEruadaá Eaae PRINT 12,F;"S)LISTA EQUI 
) + ADOS + : 
“ “Planilo Eletrônica CALC-300. Única em 2: Se DPL amil Góro qão dois PRINT AI 14.F; 118) GRAVACAO" 
atm Em n 
80 para versão K-7. a 806 LET T= g082 INPUT HS 
— Utilitários copiadores para fita e disco. 908 IF LEN T&<15 THEN LET TãaT& 3024 M$<U1" OR M&>"7" OR LEN 
— Editor/ Assembler, monitor MACMON e tu- +86 ps OLENT T&) as $E Then goto inss 1º OR H$>*8 
a Ergo seg 
ba or ia máquina. Em fita ou disco. Sie IE E&idI=Ta THEN LET Tou LoL HEN GOTO S006 
— Compilador ZBasic. Produz código objeto 916 IF sd AND M$="2"') OR (Ta 3030 PRINT AT 21,0; "ARQUIVO DE E 
afro CofhD a Dona A a COTERERS qu, SBSEPoVSE To 
=º1º THEN PR A 1 
SOFTWARE PARA LINHA MSX doa TME ne cAPASTRA ADO" dis E eso 0 o AND inda sm Hgurá 
Revendemos cartuchos e fitas c/ os melhores — cer INT AT 21, 3 Us (Mg="3" Mg=" 
preços. Desenvolvemos títulos próprios. Entre E Doo oga CADAS RaDO” 3098 GOTO URL N$s100 
err Cartao: Es cosus 26º 5048 PRINT AT 21,0; “ARQUIVO DE R 
s A E) 
A PEEK & POKE demonstra, garante e dá su- 928 RETURN ESULTADOS VAZIO" 
contuço1os solicita SR ir Rb 1002 ES EGOR anna 3846 corar Pai 
ou ca ra 
et Todo Cosve tê THEN GOTO 1058 






PEEK & POKE Microc omputação e Comércio Ltda 
rig. Faria Lima, 1664 Conj. 1102 
São Paulo SP Fone (0118133277 


1008 FOR Iz1 TO 
1010 Err BI, VAL M$) sACI,UAL Mg) 


LET VE=HS 
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Mantém equipamentos eletrônicos 
em operação normal durante falhas, 
mesmo momentâneas, no fornecimen- 
to de energia comercial. 

Uma nova filosofia de “no break”, 
aplicado junto ao terminal do usuário, 
evita complexos sistemas centrais de 
alta potência, custo elevado e manu- 
tenção problemática. 

A bateria é selada, dispensando ma- 
nutenção periódica e não exalando 
gases; permitindo sua instalação em 
qualquer ambiente. 

Seu uso é indispensável em: 

e Microcomputadores (salva-programa) 
e Caixas registradoras 

e Sistemas telefônicos KS, PBX, e PAX 
e Sistemas de segurança 

e Sistemas de supervisão e controle 
e Equipamentos médicos (CTI) 

e Luzes de emergência 


SÃO PAULO — H.B.D. - (011) 814-9657 


NÃO PARE... 


POWER PAK 


REVENDEDORES POWER PAK 


e BATERIA SELADA 
Instalação em qualquer 
ambiente pois não exala gases. 


e DISPENSA MANUTENÇÃO 
Não é necessário o 
recomplemento da solução 
da bateria. 


e TRANSFERÊNCIA 
INSTANTÂNEA 


e ALTA CONFIABILIDADE 


e PROTEÇÃO CONTRA SURTOS 
DE TENSÃO 


e PROTEÇÃO CONTRA 
SOBRE CARGA 


RIO DE JANEIRO — SUPORTE - Tecnologia de Sistemas Digitais -(021) 580-4880 


— MICROMAQ - (021) 222-6088 — DATALÓGICA INFORMATICA - (021) 252-7784 — MICROVELT - (021) 768-5804 — MICRO CONSULT -(021) 259-7098 


RECIFE — RESET - (081) 325-1551 


CURITIBA — BRASCONTA 


- (041) 224-5060 232-3533 








Mais do que um modo para texto, SCREEN 1 é uma verdadeira tela 
reconfigurável, cuja versatilidade será mostrada neste artigo. 


SCREEN 1 no MSX 


Pierluigi Piazzi e Milton Maldonado Jr. 





MSX possui vários modos de 
controlar a tela, incluindo al- 
ta resolução gráfica, cores e 
texto. Um destes modos é o 
SCREEN 1, considerado por muitos o 
“primo- -pobre” das telas, pois, em uma 
primeira análise, não passa de um sim- 
ples modo texto (32 colunas) que, aparen- 
temente, nada tem 
de incomum e que 
ainda perde em de- 


sempenho ea 
do SCREEN 0 (40 
colunas). 


No entanto, o 
SCREEN 1 possui 
uma série de recur- 


6912-7039: Tabela de atributos dos Spri- 
tes. 
14336-16383: Tabela de 
dos Sprites. 

A figura 1 mostra a organização da 
VRAM do MSX. 

Neste artigo, entretanto, trataremos 
apenas do mapeamento da tela e da re- 


formação 


SCREEN 1 


BASE(7) = O 


FORMAÇÃO DE CARACTERES 


(2048) 





2 Kb(02048) 


sos que podem ser 
bastante interessan- 
tes, como, por exem- 
plo, para jogos de 
ação. 


MAPEAMENTO 


4 Kb(04096) 


6 Kb(06144) 





EM MEMÓRIA 


MAPA DA TELA 1 (76B) 





* ATRIBUTOS DE SPRITES (128) 


A organização da 


B Kb(08192) 





BASE(6) = 8192 





tela no modo SCRE- 


CORES DOS OCTETOS (32) 





EN 1 na VRAM (Ví- 
deo RAM) é a seguin- 


te: 

0000-2047: Tabela 
de formação de ca- 
racteres. 
6144-6912: Mapa da 
tela-texto. 
8192-8223: Tabela 


10 Kb(10240) 


12 Kb(122668) 


14 Kb(14336) 


BASE(9) = 14336 





de cores dos caracte- 
res (ver octetos). 

Além destas áreas, 
existem outras que 
operam apenas com 
os Sprites. Estas áreas 
são as seguintes: 


16 Kb(16384) 


Figura 1 


14 


FORMAÇÃO DE SPRITES 


(2048) 





definição dos caracteres do micro, tanto 
em relação à forma quanto as suas cores. 


MAPEAMENTO DA TELA 


O mapa da tela no modo SCREEN 1 
ocupa 768 bytes (pois 24 x 32 = 768). 
Os primeiros 32 bytes armazenam a pri- 
meira linha, os próximos 32 armazenam 
a segunda e assim por diante, até os últi- 
mos 32 bytes, que armazenam a última 
linha. O início da tela se dá na posição 
6144 (decimal) da VRAM claro 
que para ler estas posições deve-se usar 
a função VPEEK e, para alterá-las, o co- 
mando VPOKE. 


TABELA DE FORMAÇÃO DOS 
CARACTERE 


A tabela de formação dos caracteres 
inicia na posição O da VRAM, ocupando 
um total de 2048 bytes, indicando 
ainda a formação dos 256 diferentes ca- 
racteres do micro. Um simples cálculo 
mostra que cada caráter necessita de 8 
bytes para ser completamente definido 
em forma ( fqu em já redefiniu os carac- 
teres do ZX81 ou do ZX Spectrum sabe 
como funciona). 

Para quem não sabe, os caracteres são 
formados por uma matriz de oito linhas 
por oito colunas, num total de 64 pon- 
tos. Cada linha nada mais é-que a repre- 
sentação binária de um byte. Por isto, 
cada caráter necessita de 8 bytes. Deste 
modo, as posições de O a 7 definem o 
caráter de código O; de 8 a 15, caráter 
de código 1 (não confundir com “1”, 
pois este último tem código 49), e assim 
por diante. 

Ao se chamar o comando SCREEN, 
o computador transfere automaticamen- 
te a tabela original de formação dos 
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caracteres contida na ROM para a tabela 
na VRAM. Portanto, após redefinir seus 
caracteres, não utilize este comando 
pois ele será um tanto quanto destruti- 
vol! 


TABELA DE CORES DOS 
CARACTERES (OCTETOS) 


Internamente, os 256 caracteres do 
MSX são divididos em 32 grupos de oito 
caracteres (os octetos). Cada um destes 
grupos pode ter sua cor de frente e fun- 
do definida por uma pequena tabela 
de cores (de apenas 32 bytes) que inicia 
na posição 8192 e vai até 8223. Natu- 
ralmente, os caracteres de O a 7 devem 
ter todos a mesma cor de frente e 
fundo; idem com os de 8a 15, até o 
grupo 248-255. 

ara definir a cor de um grupo, deve- 
se alterar o valor do byte corresponden- 
te (exemplo: para alterar o grupo de 
0 a 7,0 byte será 8192; se for do 8 ao 
15,0 byte será 8193 etc). 

O valor do byte, obviamente, é que 
contém a cor de frente e fundo. Imagi- 
nando o byte como uma segiência 
de 8 bits, teremos nos primeiros quatro 


DATA 24,10,10,06,D4,FE,FE,FE,Có 
DATA 25,FC,FC,70,7F,70,FC,FC,00 
DATA RO ,Có,FE,FE,FE,DA,D6, 10,10 
DATA 27,3F, IF, 0E,FE, DE, 3F,3F,00 
DATA 4,148,30,3D,3E,3D,3C,46,3C 
DATA G,18,3C,80,7C,8C,3C,18,930 
DATA 4,00,00,09,18,15,00,00,00 
DATA tá, 00, JL, 56,FF,56,34,18,00 
DATA 0,00,7F,7F,7F,00,EF,EF,EF 

190 DATA 2 E,7E,7E,7E,7E, ZE 

110 DATA 1 

120 CE=SCHRSCI) EEN 14,0,02COLOR 4,7,7 

FKEYOFFSDEFINT A-ZEGOSUB 4460:GOSUB 4901 

GOSUB 520:FORI=0TOTEREADOS( I)ENEXTI 

130 CLSIWIOTH S0:PRINTCHRS(2L9)  CHRE(RO 

DIESTRINGS(2E,219);2FOR [et TO 24ºPRINT 

CHRSC2LP)PEFOR J=17028EPRINTOSSCHRS(72) 

FSNEXTISPRINTCHR$(Z19); NEXT IEPRINTSTR 

ING$C30,249)s 

140 OM INTERVALSO GOSUB I50:DEF FNPO(X, 

VIm61 A XHIZKVIVPOKE GRILL, LOTA 

150 A=61762DugrFcQP=BEVPOKE A,D+241STR 

IGCODOFF:0N STRIG GOSUB 340:FOR I=1 TO 

AEXCIDSIS+TIYCTI=SASENEXT I 

150 STRIGCOOFFECSSTICKCO)EIF Ca 3THENDS 

D+HiELSEIFL=2 THEND=SD-SELSELDO 

170 QUTIZO, 1H4F0OUTL7A, 26 

180 IF Do ATHENO=DELSEIFDu4THEND=0 

170 VPOKE A,D+242STRIGCO)0ON 

OO XCA GLAM PMODIZEYNÇA-GI 44) NIZIFOR | 

21 TO 4:Z502TF Je4THENZ=30 

PAO VPOKEFNPOCXOI),YCI)D, ZEZ=4DXVOIDYE 

OIIFRNDCL)).STHENDXSSGNCX XCD ELGEDT SG 

GNCr-YCTD 

020 IF IXATHEN co0 

230 TFVPEEKCFNFOCXCT)4DX, Y41)))4 32 THEN 

IFVPEEKCFNPOCXCI)=DX, YC1)) IR THENDX=-D 

XELSEDX=0 

P40 IFVUPEEKCFNPUCXCID, YCL)+DY))CHADTHEN 

IFVPEEKCFNPOCXCID, YCI)-DY) a 32 THENDY=S-D 

YELSEDY=O 

250 U=SFNPOCXC(I), YCI)DETE VPECKCU+A)+VPE 

EK CU-1)+VPEEK (U+I2) +VPEEK CU-32)=32THENO 

OSUB4LO 

ROO XET)I=KCT)ADXEVCIDEYCTIADYITEXCIDSXT 

HENZ=5 

270 IFVPEEKCFNPOCXCID, YCT)) )=4 THENXCI) 

ROsY<I)=15 

200 K=VPEEKCFNPOCXCID, YCT)))2 TFKIZIANDK 

(2BTHEN420ELSEVPOKEFNPO(XCI), YCI)), Z2:NE 











290 K=VPEEKCDSCDI+A)DIIFCC)I THENTIO 

300 IFK()BANDK()219THEN VPOKE A azzA=As 
DStD)IVPOKE A,D+2420UT 470, 15470UT 470, 
E 

910 IFK=L6THENF=1:FORI=1TOSOFBEEPINEXTI 
TELSEIFK=40RK=5THEN4DO 

320 IFK=203ANDF =1THEN4I40 

330 GOTO 140 

«30 IF T>0 THEN RETURN ELSE TuAZDT=DIBE 
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bits o código da cor de frente, e nos res- 
tantes o código da cor de fundo. Obser- 
ve que a de frente é a cor que um ponto 
assume quando está aceso, e a de fundo 
é a que ele assume quando está apagado. 
Assim, se você deseja que o grupo de 
48 a 55 tenha frente vermelha e fundo 
ciano, comande VPOKE 8198,135. O 


Figura 2 


endereço 8198 corresponde à tabela que 
vai de 48 a 55; 0 valor 135 é o mesmo 
que 16x 8 +7(8 = vermelho, 7 = cia- 
no). 

Um modo prático de achar este valor 
em função das cores de frente e fundo é 
aplicar a seguinte fórmula: 

D=16*Cf+Cb 
Onde: Cf é o código da cor de frente; 


EPrINTERVAL ONIRETURN 

50 IF T=0 THEN RETURN 

340 IF VPEEKCI)=6 THEN VPOKE T,3R 
TuT+DS(DIIETE VPFÉFKOTIS32 THEN UPOK 
«+ 63RETURN 
IF VPEEK(T)=B8 THEN VPOKE T,32 

390 IFVPEEK(T)=40RVPEEK (T)=5THENGOSUBAZ 


400 INTERVAL OFFETaQLRETURN 
410 UmENPOCO,YCIDIIFOR Jul) TO U+27EVPOK 
E J,92ºNEXT JERETURN ' 

420 CLSFLOCATE 0, 402PRINTÍVOCE FOI CAPT 
URADO” :GOTOA4O 

430 CLSILOCATE 4,103PRINTOVOCE CONSEGUI 
u” 


440 INTERVAL OFFISTRIGCO)OFFEPRINTO JOGA 
DE NOVO 7“p 

450 AG=SINPUTSCA)2IFAS="S"THENSGOELSEIFA 
6="NºTHENRUNELSE 450 

440 CLS:FOR Ixb TO PEREADZSFOR J=0 TO 7 
FREAD BEIVPOKE J+BuZ,VAL(CAHO +85) NEXT 
JENEXT IERETURN 

470 FOR I=1TO4 IFENPOCX(I), YCI))<)TTHEN 
NEXTI RETURN 

480 VPOKE T,322X(I)=20EYCI)u1SIFORJusTO 
BIQUTI/O, 154:0UTL70, 26: NEXTIFRETURN 

490 VPOKEBL9R, LISEVPOKEBI9I, 97 

TOO VPOKEBIPA, PASIVPOKEBL PE, 3PEVPOKEBOL 
7 4A3SEVPOKEBRILP, 174 

510 RETURN 

Ve0 WIDTH 2HFCLSsPRINTO 
CK mem” 

30 PRINTEPRINTEPRINTO Voce deve rouba 
r uma pedrapreciosa que fica protegida 
por quatro androides guardi-aes, À sua 
unica arma «e umtanque de guerra que & 
& movenas quatro direcoes e alirapara 
abrir caminho entre ossubterranços.” 
40 PRINTEPRINTO Tenha muito cuidado c 

om osandroides, pois se qualquerum del 
es capturar você, naohaver.. outra chan 

CE... 

US0 PRINTEPRINTO Apos roubar a pedra, 
salapúla passagem (“FCHRSCZOBD POD qu 
e ficano canto superior da Leela. Não 
ente sair sem a pedra,pois isto e desa 
utroso e de-saconselhavel...“ 

60 LB=INPUTSCI) 

v70 CLSEPRINTO As teclas de cursor ser 
vempara controlar qo tanque. Usgas tecla 
e laterais para vi-rar, a tecla de cim 
a para a-vancar e a barra de espaco pa 
ra atirar,” 

S80 PRINTEPRINTIPRINTOS;“Y ..s 
ueCaPRINTIPRINTOS:CD +... Androlde“sPRIN 
TIPRINTCS5 CP 2... Diamante”sPRINTEPRINTO 
HR$C219)5” +... Fronteira“sPRINTEPRINTOS 
CH «.» Parede subterrança”zPRINTIPRINT 
CHR$(209)4" ... Saida“iPRINT 

590 PRINTEPRINT “Aperte uma tecla p/ jo 
gar": I6=INPUTSC(4) RETURN 


emme TANK ATTA 


Seu tang 








Cb é o código da cor de fundo. 
Reciprocamente, podemos determi- 

nar os códigos das cores que foram usa- 

das a partir do valor do VPOKE; 

Cf=D/16 

Cb=D MOD 16 


Para exemplificar o funcionamento 
de tudo isto, a listagem 1 mostra, a se- 
guir, uma adaptação do programa 
TANK ATTACK, extraído do livro 
“Coleção de Programas para MSX”, lan- 
çado recentemente pela Aleph Publica- 
ções. 


Inicialmente, o programa redefine os 
caracteres alterando os dados da tabela 
de formação dos mesmos. As informa- 
ções de cada linha DATA (10-100) con- 
têm nove dados: o primeiro é o código do 
caráter a ser alterado, e os outros oito in- 
dicam como será formada cada uma das 
oito linhas que compõem o caráter. A sub- 
rotina responsável pela leitura das ins- 
truções DATA está na linha 460. Um 
loop FOR-NEXT exterior é responsável 
pela varredura dos códigos dos caracte- 
res e um loop interior redefine cada um 
dos caracteres apontados pelo loop ex- 
terior. A instrução DATA da linha 110 
não entra neste processo; apenas define 
a matriz de direções de movimentação 
do tanque. 

A sub-rotina das linhas 490 a 510 
é uma utilização da propriedade dos 
octetos como explicado acima: ela 
modifica as tabelas de cores seguindo 
a convenção que já foi mostrada. 

O jogo é auto-explicativo, e as instru- 
ções estão localizadas entre as linhas 
520 e 590. 

Uma técnica interessante para se usar 
no modo SCREEN 1 é mapear a tela em 
coordenadas X e Y. Existe uma forma 
bem conveniente de fazer isto, basta 
converter o valor de X e Y em um nú- 
mero de memória através do comando 
DEF FN (linha 140), ou seja, a função 
calcula o endereço correspondente à po- 
sição da tela de coordenadas referencia- 
das em FNPO. 

O cenário de fundo é impresso com 
o comando PRINT, que usa o caráter de 
controle (CHR$(1)) para poder impri- 
mir os caracteres de código menor que 
32. As partes móveis são colocadas 
na tela diretamente com auxílio do 
comando VPOKE, que equivale a impri- 
mir na tela o caráter do código referen- 


ciado. E 
e 





Pierluigi Piazzi é formado em Química e Ffsi- 
ca pela USP. Atualmente, é o Diretor-Edito- 
ria! da Aleph Publicações, especializada em 
livros e manuais para microcomputadores pes- 
sogis. 


Milton Maldonado Jr. é estudante de engenha- 
ria da USP e co-autor dos livros “Super BA- 
SIC TK”, “Coleção de Programas para MSX"* 
e “Aprofundando-se no Expert”, todos edi- 
tados pela Aleph Publicações. 
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A era 
Sinclair: 





mudanças no mercado 





Saiba como se têm comportado os micros da linha Sinclair 


no exterior e Brasil; conheça as atuais tendências deste 


mercado, seus novos equipamentos e futuros lançamentos. 


maior revolução na área de mi- 

crocomputadores pessoais co- 

meçou na Inglaterra em 1980, 

impulsionada pela genialidade 
criativa de um homem: Clive Sinclair. 
As máquinas que levam o seu nome con- 
quistaram milhões de usuários em todo 
o mundo, difundindo a atividade da 
microcomputação de uma forma como 
nunca havia ocorrido antes. 

O primeiro equipamento lançado por 
Sinclair que fez sucesso foi o ZX80, um 
micro baseado no Z80, com uma UCP 
que pelos seus recursos — facilidade de 
utilização e baixo preço — conquistou 
o mercado. 

O ZX80 custava menos de US$ 
100 e possuia uma memória RAM de 
1 Kb, um poderoso sistema operacional 
armazenado em 4 Kb, teclado de mem- 
brana e saída modulada de vídeo para 
a antena de um televisor convencional. 
Ele também permitia o armazenamento 
e leitura de programas em fita cassete 
comum. 

Estas características do seu hardware 
e a possibilidade de usar alguns eletrodo- 
mésticos (televisor e gravador cassete) 
como periféricos, aliadas ao baixo custo 
e às facilidades de utilização do sistema 
operacional, foram fatores determinan- 
tes no sucesso de vendas alcançado pelo 
ZX80, o primeiro triunfo da Sinclair 
Research, empresa criada por Sir Clive 
para projetar e desenvolver equipamen- 
tos eletrônicos. 
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Os representantes 
da linha Sinclair no 
Brasil tiveram bastante 
sucesso. Hoje, os 
compatíveis com o 
ZX81 já não 
vendem tão 

bem (TK8S; 
CP-200 e Ringo), 
mas o TK90X — 
único Spectrum 
nacional — ainda 
atrai o público. 





Menos de um ano após o surgimento 
do ZX80 (1980) a Sinclair Research 
lançou o ZX81. Em aparência, ele era 
bastante similar ao ZX80, porém a sua 
ROM vinha agora com 8 Kb, onde fo- 
ram incluídos novos comandos, funções 
matemáticas mais complexas e rotinas 
para possibilitar a utilização de impres- 
sora. Além disso, ao contrário do ZX80 
que só podia operar no modo FAST, o 
ZX81 permitia selecionar duas velocida- 
des de processamento: FAST ou SLOW. 
O sucesso obtido pelo ZX81 foi tão 
grande que ele serviu de modelo para de- 
zenas de outros microcomputadores em 
todo o mundo, o que difundiu ainda 
mais esta linha de equipamentos. 

Entretanto, mesmo com todo o su- 
cesso alcançado, Sir Clive não ficou sa- 
tisfeito, e no início de 1982 ele surpre- 


endeu o mercado com um micro que faz 
sucesso até hoje: o ZX Spectrum. O 
ZX Spectrum é uma máquina com um 
design diferente do ZX81, embora man- 
tenha algumas de suas características. 
Ele tem um teclado aperfeiçoado, me- 
mória RAM mínima de 16 Kb (expansi- 
vel até 48 Kb), ROM de 16 Kb, 8 cores, 
alta resolução e um novo conjunto de 
instruções que incluem, entre outros, os 
comandos READ, DATA e RESTORE, 
capazes de manipular arquivos com va- 
riáveis alfanuméricas mais facilmente do 
que com os comandos antes disponíveis. 


A SITUAÇÃO NO BRASIL 
Agora, quase cinco anos após o sur- 


gimento do primeiro micro compatível 
com a linha Sinclair no Brasil (o NE- 
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Z80), algumas modificações no mercado 
de micros começam a determinar novos 
rumos para esta categoria de equipa- 
mentos. 

Cada um dos segmentos responsáveis 
pela consolidação destes computadores 
no Brasil, desde os usuários, fabricantes, 
software -houses, lojas e magazines, está 
assumindo posturas adequadas à nova 
realidade do mercado nacional de micro- 
informática, pois com o surgimento de 
máquinas de preço acessível e dotadas 
de recursos gráficos, visuais e sonoros 
mais sofisticados como os micros com- 





por disco, o que só é possível com um 
micro de maiores recursos”. Segundo 
Fernando, após adquirir o CP 400, o 
CP 200 ficou sem uso e ““vendê-lo foi 
a conseguência natural”. 


Outro desses usuários é Luis Paulo 
S. Santos, Técnico-de-Metalografia. Ele 
possui um TK82C há quatro anos e 
agora está se desfazendo do seu equipa- 
mento para adquirir novas placas de 
expansão para o Apple II Plus que com- 
prou. Segundo Luís, o TK82C “já não 
satisfazia as minhas necessidades profis- 
sionais, pois eu necessitava de um micro 


Os periféricos 
oferecidos no 
mercado nacional 
foram basicamente 
interfaces para 
impressoras 
convencionais, 
joysticks, expansões 
de memória, gerador 
de som, redefinidor 
de caracteres e 
modems. 





patíveis com o TRS-Color e MSX, alia- 
do à queda no preço das UCPs de 
Apples, o interesse dos usuários pelos 
micros da linha Sinclair (à exceção do 
TK90X) diminuiu sensivelmente. 

Esta queda no interesse pode ser fa- 
cilmente observada, pois quem desejar 
adquirir um micro não precisará procu- 
rar muito: bastará abrir os jornais de 
classificados das grandes cidades. Eles 
estão cheios de anúncios (principalmen- 
te de venda) de micros da linha Sinclair. 
Nestes jornais, dezenas de usuários 
oferecem equipamentos por preços bas- 
tante acessíveis, sendo que, com quantias 
que variam de Cz$ 400,00 a 1.200,00 
é possível adquirir um NEZ80, TK82, 
CP 200, TK85 (16 ou 48 Kb) ou outros 
compatíveis com o ZX81. 

Nesta disputa para vender o seu mi- 
crocomputador, alguns usuários tentam 
aumentar o interesse do comprador, 
oferecendo junto com a máquina peri- 
féricos (joystick, gravador, etc.), livros 
ou mesmo software em fita cassete, O 
que reduz ainda mais o preço final do 
equipamento. 

Os motivos que levam muitos usuá- 
rios a desistir de seus equipamentos va- 
riam desde a necessidade de dinheiro, pa- 
ra adquirir outro micro, até o interesse 
em desocupar lugar. Porém, a razão alega- 
da pela maioria é a necessidade de uma 
máquina com maiores recursos. 

Fernando de Assis Gonçalves, Auxi- 
liar- Administrativo, é uma dessas pesso- 
as. Ele trocou o seu CP 200 por um CP 
400 porque “precisava de uma planilha 
eletrônica ou um processador de textos 
eficiente com um sistema de acesso 


MICRO SISTEMAS, maio/86 


com alta resolução, cores e unidade de 
disco flexível, recursos que a linha 
Sinclair não possui”. 

Nem todos, porém, têm a intenção 
de abandonar definitivamente a linha 
Sinclair por um equipamento com uma 
filosofia totalmente diferente a nível de 
software e hardware como o Apple, 
Color ou outros. Giangiacomo Ponzo 
Netto, colaborador de MICRO SISTE- 
MAS, preferiu trocar o seu TK82C por 
um TK90X. Segundo ele, esta troca foi 
uma evolução natural: “como eu posto 
de desenvolver jogos, o TK90X satisfaz 
plenamente as minhas necessidades, além 


Infelizmente, a pequena 
impressora, sonho de 
muitos usuários, ainda não 
chegou. Modelos 
estrangeiros ol a 
Timex 2040, da foto) são 
encontrados nos 
“muambeiros” das grandes 
cidades. Porém a TK 
Printer, prometida pela 
Microdigital, deve sair no 
fim do ano. 


Segundo Kovari, o TK90X é atual- 
mente um grande sucesso, como atestam 
as vendas no Brasil e as exportações 
para países como o Uruguai, Argentina, 
Chile, México, Colômbia e Venezuela. 


Em relação à demora da chegada do 
TK90X no mercado brasileiro (meados 
de 1985), Kovari discorda. Para ele, a 
entrada do TK90X foi no momento 
exato, pois com a base de equipamentos 
vendidos em todo o mundo (mais de 
10 milhões) e os mais de 10 mil progra- 
mas disponíveis, é possível oferecer 
uma tecnologia muito avançada e prin- 
cipalmente consolidada, com uma gran- 
de biblioteca de software e livros à 
disposição do usuário. 


A Microdigital, segundo Kovari, 
“aposta no sucesso do TK90X” e por isso 
está colocando progressivamente no 
mercado periféricos e acessórios como o 
light pen (disponível desde o fim de 
março). Quanto à impressora TK Prin- 
ter, ele alega que a empresa ainda 
não a colocou no mercado “por pro- 
blemas de mecânica fina e importação 
de componentes”, assegurando porém 
que até o final do ano todos os proble- 
mas deverão estar solucionados. 


O aspecto da comercialização dos 
equipamentos da linha Sinclair é outro 
assunto que merece ser analisado. Para 
avaliar a atual situação, nada melhor 
que pesquisar os dois segmentos respon- 
sáveis por esta atividade: as lojas e os 
magazines. 

Em relação à linha Sinclair, parece 
que a velha briga entre as lojas e os ma- 
gazines está definida, com a vitória des- 
tes últimos. No fim de tudo, o argumen- 
to que provou ser correto foi o preço. 
Só para se ter uma idéia, por não terem 
condições de competir em preço e for- 
mas de pagamento com os magazines, 
mais de 50% das lojas que trabalhavam 








disso já estou acostumado com a filoso- 
fia dos equipamentos dessa linha”. 

Essa preferência pelo TK90X, obser- 
vada em diversos usuários, parece con- 
firmar a aceitação destes micros pelo 
mercado. George Kovari, Presidente da 
Microdigital — fabricante dos TKs —, 
explica essa escolha como natural, pois 
à medida que o usuário se torna mais exi- 
gente “a tendência é vender o TK85 e 
partir para outro micro mais avançado”. 


com esses equipamentos já não mais o 
fazem. 


Fernando César Vaz, responsável 
por uma loja no Rio de Janeiro, a Sin- 
clair Place, desabafa: “desistimos da Ji- 
nha Sinclair porque as vendas estavam 
caindo cada vez mais. Só para se ter 
uma idéia, se antes vendíamos 100 
unidades por mês (entre Ringo e TK85), 
hoje não conseguiríamos vender 10”. | 


Para Fernando, outro motivo que expli- dt 
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A ERA SINCLAIR: MUDANÇAS NO MERCADO 


Evolução Internacional 


Ão contrário da situação atual do merca- 
do brasileiro, a linha Sinclair (ZX81 e ZX 
Spectrum) ainda é bastante popular no ex- 
terior, pd oiee na Inglaterra, onde 
podem ser adquiridos tanto os equipamen- 
tos como software, acessórios, periféricos 
etc. 

Para o ZX81, por exemplo, é possível 
conectar expansões de memória, unidades 
de disco de 5 1/4", teclados eletromecâni- 
cos, sintetizadores de som ou voz, light- 
pen, modem e muitos outros acessórios. 

Já os usuários do ZX Spectrum contam 
com um repertório bem mais vasto de peri- 
féricos, além dos já citados para o ZX81. 
Eles incluem impressoras térmicas e matri- 
ciais (inclusive a cores), unidades de disco 
flexível de 3 e 3 1/2", monitores de vídeo 
coloridos, pranchetas gráficas e até joysticks 
operados por infravermelho. 

Algum tempo após o lançamento do ZX 
Spectrum (em 1982), a Sinclair Research 
introduziu no mercado um novo dispositivo 
para armazenamento de dados e programas 
que facilitasse o trabalho do usuário: o 
microdrive. Composto por uma unidade 
automática de leitura e gravação que aciona 
uma fita cassete de dimensões reduzidas 
com capacidade para guardar 100 Kb de 
informações, o microdrive proporciona um 
modo econômico, simples e confiável do 
usuário acessar os seus programas. Aqui no 
Brasil, o microdrive não está nos planos da 
Microdigital. 


SINCLAIR EM APUROS 


A história da Sinclair Research, entre- 
tanto, não é marcada somente por suces- 
sos, pois mesmo com toda a criatividade de 
seu fundador e os lançamentos de equipa- 
mentos e periféricos, a empresa não conse- 
guiu escapar da grande queda na venda de 
micros, ocorrida a partir do final de 1984. 

Isto acarretou uma série de problemas 
financeiros à empresa, já que como a previ- 
são de vendas não se concretizou houve a 
formação de um grande estoque de equipa- 
mentos. Esta situação, combinada com os 
baixos índices de venda de outros produtos 
da companhia (como a TV de tela de cris- 
tal líquido, por exemplo), agravaram ainda 
mais sua situação financeira. 

Para ajustar-se a esta nova conjuntura, 


Sinclair QL 


A q 


Ego aii 


Hi 
ECREIE 


ZX Spectrum Plus 


a Sinclair Research tomou algumas provi- 
dências: reduzir os preços de seus micros 
e aprimorar a qualidade de seus produtos. 
Além disso, a empresa passou a dar maior 
atenção ao equipamento mais vendido no 
mercado, o ZX Spectrum. 

Foi com base nesta estratégia que a 
Sinclair lançou, em meados de 1984, o ZX 
Spectrum Plus, um micro com a maioria 
das características básicas do ZX Spectrum 
comum, apresentando porém uma memória 
RAM de 64 Kb, caixa mais robusta e um te- 
clado aperfeiçoado, tudo por um preço in- 
ferior a US$ 150. 

Outro lançamento da Sinclair, em 1984, 
foi o QL (Quantum Leap — Salto Quânti- 
co), um microcomputador destinado a usuá- 
rios pessoais mais exigentes. O QL é dotado 
de um microprocessador de 16 /32 bits (MC 
68008); processador de som e teclado (In- 
tel 8049); 128 Kb de RAM; oito cores; 
resolução gráfica de 512 x 192 pontos; 





duas saídas R$ 232-C e ROM de 48 Kb com 
sistema operacional próprio (QDOS) con- 
tendo linguagem BASIC e quatro progra- 
mas aplicativos: processador de textos, 
banco de dados, planilha eletrônica e fun- 
ções gráficas; miga age ars juta 
para um micro que e ser uirido por 
menos de US$ 300, p F, 

Estes lançamentos, entretanto, não tive: 
ram a aceitação esperada e a situação da 
empresa tomou a piorar, culminando em 
meados do ano passado com a venda e trans 
ferência do controle acionário das mãos de 
Sir Clive Sinclair para o empresário Robert 
Maxwell. Com esta mudança, Sir Clive 

a se dedicar exclusivamente ao pro- 
jeto e desenvolvimento de novos produtos, 
em sua mansão- laboratório. 

Agora sob nova direção, a Sinclair 
Research está adotando novas estraté- 
gias, visando não só consolidar a posição em 
seu país, como também ampliar o seu mer- 
cado consumidor. 

Pela primeira vez, a Sinclair concedeu o 
direito a outra empresa (a Investrônica, da 
Espanha) de fabricar um equ ento iné- 
dito na própria Inglaterra: o ZX Spectrum 
128. A Investrônica lançou o equipamento 
em 1985 e a Sinclair espera lançar o ZX 
Spectrum 128 na Inglaterra ainda neste se- 
mestre. 

Acomodado numa caixa metálica, o ZX 
Spectrum 128 incorpora diversas inovações 
como fonte de alimentação interna; memó- 
ria RAM de 128 Kb; R$-232; saída direta 
para monitor de vídeo colorido padrão 
RGB; teclado aperfeiçoado (com teclado 
numérico destacado); alto- falante embutido 
e um circuito int o gerador de sons, o 
AY-38910. O ZX Spectrum 128 possui uma 
ROM de 32 Kb onde estão contidas todas 
as instruções do ZX Spectrum comum e 
também um sistema operacional próprio, 
com comandos para utilizar os novos re- 
cursos sonoros e periféricos. 

Em relação aos planos futuros, a Sin- 
clair tem dois projetos ainda para este ano. 
Um deles é o Pandora, um micro portátil 
com tela de cristal líquido baseado no 
ZX Spectrum, e o outro é o Enigma, um 
micro de 16 bits com 1 Mb de RAM, teclado 
profissional, duas unidades de disco flext- 
vel de 3 1/2" e recursos de cor, som e alta 
resolução. 


ca a queda de vendas de equipamentos 
como o TK85 e CP 200, é explicado 
pela mudança no nível de interesse dos 
atuais compradores, que “já não ficam 
satisfeitos com os recursos oferecidos 
por estes micros”. 

Opinião diferente tem Adilson L. 
Barbosa, Gerente de Vendas das lojas 
Áudio, em São Paulo — empresa que co- 
mercializa micros da linha Sinclair há 
quase quatro anos, embora as suas maio- 


é ideal para quem está iniciando, contu- 
do — continua —, “os que exigirem um 
equipamento com maiores recursos, cer- 
tamente irão procurar um Apple ou 
MSX e não um Sinclair”. 

Para os magazines, entretanto, a con- 
juntura não é tão favorável como pen- 
sam alguns lojistas. Luís Cláudio, ven- 
dedor da Mesbla (RJ), explica a situa- 
ção: “em relação aos microcomputado- 
res da linha Sinclair compatíveis com o 


mação e os pais que desejam dar um 
micro de presente aos filhos e não dis- 
põem de verba para comprar um Apple 
ou MSX”. 

A opinião de Cláudio sobre os mi- 
cros compatíveis com o ZX81 é similar 
a de Fábio Mendia, Superintendente de 
Operações da CP Computadores. Segun- 
do ele, a empresa continua produzindo 
o CP 2005, principalmente para manter 
a filosofia da empresa que é oferecer 


res vendas ocorram nos equipamentos  ZX81 que nós comercializamos (TK85, produtos para todas as faixas de usuá- 
das linhas Apple, MSX e IBM-PC. Se- CP 2008 e Ringo), posso dizer que nos rios, desde o hobbysta até o profissio- 
gundo Adilson, apesar da queda na pro- últimos três meses não conseguimos nal. Fábio enfatiza que o CP 2008 é um 


cura, a Áudio ainda está comercializan- 
do o CP 2008 e o TK90X. Ele afirma que 
o primeiro é mais procurado pelos ini- 
ciantes da área de informática e o se- 
gundo pelos usuários avançados e turis- 
tas. - 

Adilson acha que a linha Sinclair 


vender mais que nove equipamentos, e a 
tendência é que estas vendas continuem 
a cair”. A situação do TK90X, segundo 
Luís, é diferente, pois além das vendas 
estarem excelentes, ele é um “micro 
com recursos que atraem os clientes, 
principalmente os iniciantes em progra- 


microcomputador limitado em recursos, 
e portanto é adequado para quem dese- 
ja se iniciar na computação e não tem 
pretensão de aprender muito. 





Reportagem de Carlos Alberto Azevedo e Lia 
Bergman 
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Na compra de qualquer 
produto Softline, 
receba o informativo TILT 
com a descrição de 
programas, dicas, novidade: 
e informações técnicas. 













O SOFTWARE PARA O SEU MICRO 











através de realísticos cenários. Quando você estiver prepara- 
do enfrente um combate real 

Seven Cities of Gold (1/64) - aventura gráfica. Você deve achar 
O Novo Mundo, retornando com ouro e glória para a Coroa 
The Incrível HULK - aventura gráfica baseada na revista do 
HULK. Você deve dotar este incrível ser de 

Capltain Goodnight (1/64) - sua messão é O MUNDO 


F = pode ser gravado em fita K7 
3 = uso obrigatório de Joystick 
48 = requer 48 K de RAM 

64 = requer 64K de RAM 











JOGOS + APPLE | das garras do terrivel Dr. Maybe, localizando e destruinda a ar- 
ma do puízo final 
— Ca$ 80,00 — Rescue Ralders [J164) - prod um e comande 
y pára-quedistas suas tropas, durante essa incan! 
[to apt Bruce Lee (1)- lute karatê como o famoso Bruce Lee. Mate os 





ninjas e os lutadores de sumô, é complete as mais incríveis 
fases 


Ê Da A REcO ig qua doa tag 04 poa 
- PeSgate Os maneiros perdidos uma terrível praga 

tm A a Were is Carmen Sandiago (54) - seja um detetive que deverá 

prender o culpado pelo roubo. Viaje pela mundo coletando 

pistas 











UTILITÁRIOS/APLICATIVOS - APPLE Il 
— Cz$ 360,00 — 






Decation olímpicos 
Space Raiders (F) - de toa centopéia 
Gorgon (F] - jogos dos Visicale - planilha de cálculos 





Visidex - organizador de atividades 
Visífie - gerador de banco de dados 
Visiterm - programa de comun 

Visichedule - análise financeira PERTICPM 






via MODEM 








- perigos na construção Apple LOGO - com 
Chopilfter (FL) - resgate com helicóptero Apple FORTRAN (CPIM) - breu 
Sea Dragon - pilote o Apple Mechanic - utiitário 
Spy Demisa (F) - jogo de agente secreto Alpha Plot - gerador de gi e vo comi 
Star Blazer H- compi 











— Ca$ 520,00 — 


Turdo PASCAL (CPIM) - compilador 
Take 1 - super animador gráfico. 









JOYSTICK ANALÓGICO - APPLE Il 







- defender 
Prer Mnemb 4o — CzS 360,00 — 
- Jornada nas 
Jelhyfish - pilote um submarino JOGOS - CR-300/500 
Sorastbucidor duelo de espadachins — Cas 80,00 — 








One on One ()) - - basquete com 2 jogadores 
Spare Change - poupe para subir na vida 


Cz$ 170,00 
Karatoka perfeita simulação de karatê enfrente vários adver. 






Meteor Mission (F) - caçada espacial 






sários e Nberte a princesa do Akuma. Conan - localize e des- DR 
trua. Volta em várias fases e com diferentes obstáculos Dragon (F)- lote um submarino 
hostderstars [1] - monte uma empresa de caça aos fantasmas Misao Atack (F) - defenda sua cidade 
& comece sua aventura Scartiman (F)- Jogo tipo Pac Man 





Summer Games (54) - 8 modalidades completas de atietsmo, 









SPY va SPY - divertida ação de contra espibo, baseada Assault) tão e 
As pone com rss cos re Cotmic Figitar () jogo tpa Invasores 

veis é ação rápida em (F] - escape dos robôs 

Sangon ld - super jogo de xadrez Plnbal ()- tipo fiperama 






op up na Cn a Chicken (F)- nó Nos 
PASS ago 64 incivei simulação de um Guy asno ess 
Csçõa jato Sargon 
Gráficos complexos 








F15 Eagie, com combate em vários níveis (F]- jogo de xadrez 

Pote dr À monte suas próprias mesas de Ana); erro RCA 

fiperama - super aventura 

Tranalivania - nesta aventura, salve a prncesa Sabrina dos ter- Spook House - aventura gráfica 

ríveis perigos da terra de Drácula Punho «pe lc 

Archon (64)- fantástico jogo de estratégia. tipo xadrez, com an- Pt aii tos 

mação de gráficos - programa pomográfico 

SAM, - produz uma semutação da voz humana Ghosts (F] - cace os fantasmas de uma cidade 
Mask ol the Sunsaventura gráfica, No México. você eveachar Rally: complete o trajeto de um raty 
Ostesouros perdidos de uma antiga civilização 






UTILITÁRIOS APLICATIVOS - CP-500 
— (75 450,00 — 


Creator - gerador de programas BASIC 
Visicale - planilha de cálculos 


eram - envolva-se neste tinrier de espionagem tendo o Afe- 
rob decir Crostal En- 
rd tpri - pilote um Piper 181 totalmente equipado, 






MIMMACSNOE OU: PORTAS: ursos caps as graca a cara E em( 


para( )CP-500( JAPPLEII( 





Clone IN - copiador rápida de discos 
ACCEL 3/4 + compilador BASIC 
Bascom - compilador BASHC 


— CzS 560,00 — 


NEWDOSIBO 2.0 - sistema operacional 
DOSPLUS 3.5 - sistema operacional 
Arranger Ml - arquno de diretórios 
Profile His - gerador de banco de dados 
SuperSCRIPSIT - processador de textos 
ZEUS - super editor assembler 
DisnDATA - super disassembler 


— CzS 670,00— 


Producer - gerador de programas 
Super Utility 3.2 - super utilitário 


JOGOS - SPECTRUMITK 90X 
— C2$ 70,00 — 


Fighter Pilot (48) - pelote um F15 Eagle 

Fllgnt Simulation [48] - simutador de vôo 
TerrorDaktil 40 (48) - ação na terra perdida 
Trader (48) - comércio e ação no espaço 

Styx [48] - ande no labirinto e mate a bruxa 
Tutankhamun (48) - explore a tumba do faraó 
Tornado (48) - pote o avião. Cenário em 30 
Match Point [48) - fantástico ténis em 3D 
Cavelon (48) - uma aventura no castelo 

AD Astra (48) - salve os soldados. Ação em 30 
Gulaxy Attack (48) - várias fases no espaço 
Chess (48) - jogo de xadrez com vários nívess 
Androld 2 (48) mate os robôs. Cenário em 3D 
Deita Wing (48) - pote um caça F-16 em 30 
Manic Miner (48) - recolha os objetos da mina 
Poty Painter (48) - preencha os quadrados 

Pool (48) - fantástico jogo de sinuca 

Plintgre [48] - recolha as peças do computador 
Piromania [48] - apague os mcêndios 

The Pyramid (48) - aventura na pirâmide 

3D Tank Duel [48] - super batalha de tanques 

30 Starstrike (48) - guerra nas estreias 

Son of Blagger (48) - recolha os objetos 

Pyytron (48) - defenda sua base lunar, em 3D 
Wihealie [48] - pote uma moto no subterránea 
Fall Guy (48) - baseado no filme DURO NA QUEDA 
Booga-Boa (48) - ajude o sapo saando a mocinha 
Arcventure (48) - mate o Conde Drácula 
Huckback [48] - ajude o Corcunda de Notredame 
Harriar Attack (48) - combate nas Malvinas 

SPY v SPY (48) - guerra dos espiões, em 3D 
Knight Lore (48) - aventura no castelo, em 30 
Fred (48) - desvende os perigos da prâmide 
Fantastic Voyage [48] - entre no corpo humano 
Alrwolf (48) - baseado no senado ÁGUIA DE FOGO 
1994 (48) - uma messão no futuro 

River Rald (48) - percorra de avião um rio pengoso 
Blade Alley (48) - desafio espacxal em 3D 

Maziacs [48] - cace um tesouro no labirinto 

3D Ant Attack (48) - salve a moça das formigas 
Androlds (48) - aventura no labirnto 

Chess Caka (48) - salve os humanos com sua nave 
Scubadive (48) - recolha as pérolas do mar 
Penetrator [48] - destrua o reator 

Jetaat Willy [48] - recolha os objetos 

Full Throttle (48) - corrida de motos, em 3D 
Chequered Flag (48) - mantenha a POLE POSITION 
Worse at Sea (48) - mantenha o navio flutuando 
Trashman (48) - ajude à manter a cidade limpa 
Aquaplane (48) - uma lancha num mar de perigos 
Jump Hailager [48] - pule os obstáculos 

Night Gunner (48) pilote um bombardeio em 30 
Ghostbusters (48) - caça aos fantasmas 

Blind Alley (48) - baseado no filme TRON 

Bench Head (48) - invada uma praia protegida 
Chuckis Eggs (48) - recolha os ovos em fases 
Atic Atac 30 (48) - percorra um castelo assombrado 
Mugsy (48) - controle o sindicato do crme 


Kokotonl Wilf (48) - perigos em várias épocas 
Timanog (48) - aventura gráfica na idade média 


Wimpy [48] - uma aventura tipo Burguertme 
Decathlon 1 (48) --5 emocionantes provas olimpicas 
Decathion 2 (48) - mass 5 provas olímpicas 


Strip Poker (48) - dispa sua incrivel oponente 
Esquimo Eddie (48) - uma aventura na antártica 
Kong (48) - ajude Mario à salvar a moça do gonia 
Turtó Frutti [48] - incrível caça niqueis sonoro 
Pinball (48) - ssmulação de um pinball 

Freez (48) - destrua 0 mimego com os cubos de gelo 
Now Poker (48) - clássico jogo de poker 
Horace skilng (48) - esque montanha abamo 
Hungry Horace - divertido Pac-Man 
Horace & Spiders - enfrente as aranhas 
PSSST - salve sua planta das pragas 

Cookie - ajude 0 cozmheno contra o ZÉ DO LIXO 
Tranz Am - pegue os troféus nos EUA 

JetPac - construa os foguetes 

Spectres - um jogo diferente tipo come-come 
Escape - saia do labirinto sem ser morto 

Lab 30 - será que você sas dessa? 

Ground Attack - jogo tipo Penetrator 

Metegrs - destrua os meteoros e naves 

Combate Zone - batalha de tanques em 30 
Astro Blaster - defenda o império do mirugo 
Arcadia - sobreviva na travessa fatal 

Space Intruder - jogo tina Invaders 
Planetolds - aventura espacial com combate 
Seiddab Attack - combata os mvasores da cidade 
High Moon - duelo no velha oeste 

Invasion Force - destrua a nave mãe 

Sir Lancelot - pegue os objetos no castelo 
Molar Maul - defenda seus dentes das cáries 

Galaxians - destrua as abelhas assassinas 
Monster In Hell - cuidado com a inferno 
Space Raiders - tipo invasores da espaço 


UTILITÁRIOS/APLICATIVOS - SPECTRUM/ 
TK90X 


— Cr$ 80,00 — 


VU 30 - utiitário gráfico, Teias em 3D 
VU Cake - planilha de cálculos 

VU File - arquivo de dados para uso geral 
Ultra Violet - super disassembier 
MICODER Il - compilador BASIC 


— €25 100,00 — 


SoMCALC - planilha de cálculos com GRÁFICOS 
PASCAL 1.6 - compilador 
SpecFORTH - compilador 
ASSEMBLER - super editor assembler 

Tasword Il - processador de texto com 64 colunas 
The KEY - super copiador de 

Paint Pius - editor de telas gráficas 

Screen Machine - utilitário gráfica 


JOGOS - HOT BIT/EXPERT (MSX) 
— Cz$ 80,00 — 


Fight Simulator - simulador de vôo num Boeing 737 
Polar Star - guerra cósmica em POLAR I,3D 
DONPAN + divertido jogo de ação 

Jumping Rabbit - ajude 0 coelho à subir o edifício 
Project À - jogo com mcrivess lutas de Kung Fu 
Haunted House - escale o prédio assombrado 
Trick Boy - fantástico jogo de fipperama 


Hiper Sports 1-3- prnecones competições 
Hiper Sports 2 - mais 3 
HERO - salve 05 mineiros presos na mina 


Been Raider - defenda-se do ataque alenigena 
River Raid - percorra um rio sem ser destruido 


Norseman - defenda seu remo contra os dragões 
Hunch Back - salve a princesa aprisionada na torre 
Hot Shoe - desligue o reator nuclear 





) fita ( 
)TK 90X BIT/EXPERT, pelos quais estou enviando um cheque nominal à JVA Microcomputadores Ltda, R. Mario 
per se Sobreloja - Rio de Janeiro - RJ - CEP 20090 


Softline - R. Mayrink Veiga, 32, Sobreloja - Centro - Rio de Janeiro - RJ - CEP 20090 - Tel. (021) 262-6968 





Pascal e Apple formam, certamente, uma dupla de sucesso. 
Conheça agora as características de dois famosos compiladores 
Pascal e aproveite o potencial desta linguagem no seu micro. 








Versões do Pascal 


Maurício Costa Reis 


uando MS, em sua edição de 

abril/83, publicou uma série 

de artigos sobre linguagens de 

programação, estava dando 
um passo importante no sentido de 
abordar outras linguagens além do 
BASIC, que dispensa qualquer apresen- 
tação. 

Aqui mostraremos duas implementa- 
ções da linguagem Pascal para micros 
ps linha Apple: UCSD-Pascal e TURBO- 

scal. 


= verdade, o UCSD-Pascal (recebe 
este nome por ter sido desenvolvido na 
Universidade da Califórnia — San Diego) 
é um sistema completo — ou seja, inclui 
o sistema operacional, utilitários, gerên- 
cia de arquivos etc. — que usa o hardwa- 
re padrão do Apple com no mínimo 
64 Kb de memória, o que pode implicar 
no uso de uma placa adicional de memó- 
ria para os micros vendidos com 48 Kb. 
compilador é apenas um dos com- 
ponentes do sistema, mais conhecido 
por p-system. O sistema é executado 
a partir do DOS, que por sua vez é 
desativado. Neste ponto, aparece a men- 
sagem, como mostra a figura 1, e o 
UCSD-Pascal está pronto para uso. 
Tudo, ou quase tudo, no UCSD-Pas- 
cal é comandado por uma espécie de 
menu, bastando pressionar a primeira 
letra do comando desejado entre aqueles 
que estão exibidos no menu corrente. O 
primeiro menu, conhecido por principal, 
dá acesso aos seguintes comandos: Edi- 
tor (edição de programas ou arquivos 
de dados): Comp (compilação): Link 
(utilizado quando desejamos juntar pro- 
gramas compilados separadamente em 
um único módulo); eXecute (inicia a exe- 
cução do programa compilado); Run (ati- 
va os comandos Comp, Link e Run, na or- 
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Welcome APPLEI: TO 
U.C.S.D.Pascal System 11.5 


Current Date Is 15-DEC-79 
Command: Eldit,R(un,Flile,Clomp,L( ink, 


x(exute,A(ssemble,D(ebug?[1 «5] 





Figura 1 


LIBRARY. CODE 





Figura 2 


dem), Assemble (montagem de progra- 
mas ou sub-rotinas escritos em lingua- 
gem de máquina); Debug (depuração de 
E cada em linguagem de máquina); 

iller (copiar e apagar arquivos etc.), ? 
(permite a utilização de comandos 
opcionais pouco utilizados). Estes co- 
mandos quando selecionados provocam 
a substituição do menu, ou seja, per- 
mitem a seleção de opções de coman- 
do. O comando Editor, por exemplo, 
tem as opções Adjust, Copy, Delete, Find, 
Insert, Jump, Replace, Quit, eXchange, 
Zap e Set. 

Os arquivos do sistema são nomea- 
dos com notação própria (um pouco 
semelhante à do CP/M), ou seja, VOL. NO- 
ME TIPO, onde: VOL é identificação do 
volume (unidade) em que se encontra 
o arquivo; NOME é o nome do arquivo 
propriamente dito; TIPO identifica o 
tipo do arquivo, que pode ser TEXT 





(programa-fonte), CODE (programa 
compilado) e DATA (arquivo de dados). 

O UCSD-Pascal utiliza um conceito 
muito prático, o arquivo de trabalho ou 
workfile. A menos que um arquivo seja 
mencionado explicitamente, a ação dos 
comandos é exercida sobre este arquivo 
(o workfile) que pode ser de dois tipos: 
programa-fonte (SYSTEM. WRK. TEXT) 
e programa-objeto (SYSTEM. WRK. 
CODE). 


O arquivo compilado (tipo CODE), 
na verdade, não é executado diretamen- 
te pelo micro, e sim interpretado. A 
figura 2 mostra o esquema de utilização 
do UCSD-Pascal. 

Normalmente, os compiladores im- 
plementam alguma coisa a mais em rela- 
ção ao Pascal padrão. A linguagem Pas- 
cal implementada no UCSD-Pascal, além 
de todo poder da versão original, 
possui extensões no sentido de aprovei- 
tar toda a capacidade do micro. Uma de- 
las é o controle do cursor (em qualquer 
ponto do programa é possível posicionar 
o cursor na tela ou saber em que posição 
ele se encontra). 

Outra importante extensão é a con- 
pato de gráficos e desenhos. No 

UCSD-Pascal a capacidade gráfica é ati- 
vada pela declaração USES turtlegra- 
phics; o que torna disponível rotinas 
gráficas que utilizam o conceito de tar- 
taruga (turtle). Deste modo, para tra- 
çar uma reta na tela do terminal basta 
fazer a tartaruga andar em linha reta 
com MOVE ou MOVETO. As rotinas 
são: INITTURTLE (prepara as rotinas 
e coloca a tartaruga no centro da tela); 
MOVE/MOVETO (move a tartaruga tra- 

do uma reta); TURN/TURNTO 
sos odifica a direção da tartaruga); TEXT- 
MODE /GRAFMODE (modifica o modo 
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de operação); PENCOLOR (seleciona a 
cor do caminho da tartaruga); VIEW- 
PORT (seleciona uma parte da tela); 
FILLSCREEN (pinta parte da tela); 
WCHAR/WSTRING (escrever na tela), 
SCREENBIT (indica se o pixel está 
aceso ou apagado); DRAWBLOCK (de- 
senha um bloco pré - definido) etc. 

A declaração USES applestuff permi- 
te o uso de rotinas que dão acesso aos 
recursos já existentes no Apple, como 
controle de joystick (PADDLE e BOT- 
TON), E/S analógica (TTLOUT) e som 
(NOTE). 

A manipulação de cadeia de caracte- 
res (string) é feita com as rotinas existen- 
tes (DELETE, POS, INSERT, LENGHT, 
COPY etc.), permitindo que sejam feitos 
facilmente, por exemplo, programas para 
processamento de textos. 

Para os mais aficcionados, o UCSD- 
Pascal permite, além dos arquivos sequen- 
ciais do Pascal padrão, arquivos de acesso 
tandômico, o que certamente é um 
bom recurso. Há também a possibilida- 
de de controle de segmentação pelo 
próprio programador através da decla- 
ração de segment module. 

Opções de compilação são permiti- 
das ao longo do programa: (*SL+*) lis- 
ta o programa; (* $R+$) verificação de 
intervalo; (*$ arquivo”) inclui um ar- 
quivo no programa; (*$G-*) não per- 
mite o uso de GOTO etc. 


TURBO-PASCAL 


O TURBO -Pascal opera sob o CP/M, 
isto é, para que funcione no Apple é 
preciso que este possua a placa de CP/ 
M. Existe também uma versão do 
TURBO-Pascal para IBM-PC totalmente 
semelhante na sua estrutura, mas com 
pequenas diferenças em função das faci- 
lidades oferecidas por cada micro. 

O TURBO-Pascal é ativado pelo co- 
mando A < TURBO, onde A>indica o 
driver corrente, exibindo o menu da 
figura 3, que permite a inclusão ou 
não de mensagens de erro na memória 
do micro. Se a opção for a não inclusão, 
o TURBO-Pascal acabará utilizando 
menos memória que será usada como 
área de trabalho, permitindo que sejam 
feitos programas maiores. Em seguida, 
aparecerá o menu principal como visto 
na figura 4, que dá acesso então às 
opções de operação do TURBO-Pascal, 
selecionadas a partir da primeira letra de 
cada opção: Edit (edição do programa); 
Compile (compilação); Run (execução de 
um programa compilado); Save (salva 


arquivos de trabalho — workfile — em: 


disco); eXecute (executar qualquer pro- 
grama do CP/M; ao final da execução 
do programa, o controle é transferido 
novamente ao TURBO-Pascal); Dir 
(listagem dos arquivos existentes no dis- 
co); Quit (terminar o TURBO-Pascal); 
compiler Options (altera parâmetros da 
compilação); Workfile (seleciona um ar- 
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TURBO-Pascal release n.nn (version) 
Copyright (C) 1983 by BORLAND International 
No terminal selected 


Include error messages (Y/N)? 





Figura 3 
Logged drive: A 


Workfile: 
Mainfile: 


Edit 
eXecute Dir 


Compile Run Save 


Quit compiler Options 


Text: 0 bytes 
Free: 62903 bytes 


Figura 4 


TYPE letra=ARRAY [1..3] OF CHAR; 
ponto=RECORD 
X,Y,+Z: INTEGER; 
END; 





CONST vogal:letra=('a!,'i','u'); 
2:0); 






origem:ponto=(X:0; Y:0; 


Figura 5 


quivo do disco como arquivo de traba- 
lho); Mainfile (define um arquivo para 
trabalho interno). 

O editor do TURBO Pascal é muito 
poderoso e sua utilização é proposital- 
mente semelhante ao Wordstar, facili- 
tando assim o seu uso. As opções de 
compilação (compiler options) permi- 
tem direcionar o resultado da compila- 
ção, podendo ser de três modos: na pró- 
pria memória (deste modo o programa 
pode ser executado pela opção Run do 
menu principal), em disco (o programa 
compilado é salvo no disco como um 
arquivo do tipo .COM e pode, então, 
ser executado diretamente do CP/M) 
ou num formato especial, também em 
disco, que pode ser executado a partir 
de outro programa compilado pelo 
TURBO-Pascal. 

A linguagem implementada pelo 
TURBO-Pascal também possui modifi- 
cações em relação ao Pascal padrão, do 
mesmo modo como ocorre no UCSD- 
Pascal, O que mais chama a atenção é 
a ausência de recursos para gráficos e 
som apenas na versão para o Apple; na 
versão para o IBM/PC isso não aconte- 
ce. Por outro lado, o TURBO-Pascal 
apresenta melhorias que são agradáveis 
surpresas para os velhos amigos desta 
linguagem. Os tipos padrão são acresci- 
dos de BYTE e STRING. É possível 
definir caracteres de controle ( A Géo 
control-G ou bell). Aparecem novos 
operadores com SHL e SHR (shift) e 
XOR (ou exclusivo). É possível fazer 
mudança de tipo à semelhança da fun- 
ção ORD, que transforma um tipo qual- 
quer em inteiro. Outro recurso que vem 
sendo acrescido às novas linguagens é o 
tratamento de cadeia de caracteres e nisso 


o TURBO-Pascal não fica devendo na- 











da a ninguém: operador de concatenação 
(+), funções especiais (delete, insert, str, 
val, copy, concat, lenght, pos). Os arrays 
MEM e PORT são pré-definidos e per- 
mitem o acesso à memória e às portas de 
E/S: MEM [6000] , por exemplo, se 
refere ao byte número 6000 da memó- 
ria, que pode então ser lido ou alterado; 
PORT [2] faz acesso à porta 2 da UCP, 
que pode ser de entrada ou saída, 
dependendo da utilização do array. 

Enquanto no Pascal padrão apenas 
podemos definir constantes de tipo pré- 
definido, no TURBO-Pascal podemos 
criar constantes de mesmo tipo definido 
pelo programa, inclusive arrays. Observe 
o exemplo da figura 5. 


Os arquivos têm um tratamento espe- 
cial no TURBO-Pascal. Os arquivos 
sequenciais do Pascal padrão são esten- 
didos através de recursos que manipu- 
lam o ponteiro do arquivo (file pointer), 
criando facilmente arquivos de acesso 
randômico. As rotinas SEEK, FLUSH, 
ERASE, RENAME, FILEPOS, FILESI- 
ZE, BLOCKREAD, BLOCKWRITE são 
algumas das rotinas para uso com arqui- 
vos. Para tratamento de tela, têm-se dis- 
poníveis as rotinas CLREOL, CLRSCR, 
CRTINIT, CRTEXIT, DELLINE, INS- 
LINE, GOTOXY, LOWVIDEO, NORM- 
VIDEO, KEYPRESSED etc. Também é 
possível inserir opções de compilação ao 
longo do programa como no UCSD- 
Pascal. 

A inclusão de trechos de programa 
em linguagem de máquina no meio do 
programa Pascal e o acesso direto de 
rotinas do sistema operacional (Bdos, 
Bdos HL, Bios, Bios HL e outras que 
acessam controladores de periféricos) fa- 
zem do TURBO-Pascal uma excelente 
ferramenta para desenvolvimento de 
software. 

Tanto o UCSD-Pascal quanto o 
TURBO -Pascal colocam ao alcance dos 
usuários do Apple toda a potencialidade 
da linguagem Pascal. Ambas pratica- 
mente se equiparam em relação aos 
acréscimos ao Pascal padrão que apre- 
sentam, aumentando ainda mais os re- 
cursos da programação. A escolha por 
um deles deverá ser feita baseada na 
configuração existente. Lembre-se que 
o UCSD-Pascal exige o mínimo de 64 
Kb de memória, enquanto o TURBO- 
Pascal, uma placa de CP/M. Para quem 
puder, sugerimos o uso de ambos, afi- 
nal, juntar o Pascal ao Apple (ou vice- 
versa) só pode dar em sucesso! 





Graduado em informática pela UFRJ, Mauri- 
cio Costa Reis está cursando Mestrado em En- 
genharia de Software pela COPPE /UFRJ, é 
analista de sistemas do Ministério da Marinha, 
onde trabalha no desenvolvimento de siste- 
mas especiais baseados em microcomputado- 
res, e também co-autor do livro “Computa- 
dores para Usuários”, 
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Aprenda a manipular a memória de tela do TK90X e aproveite ao 
máximo todos os recursos deste pequeno, porém versátil, micro. 








A tela do TK90X 


Álvaro Ferreira de Freitas Borja 


s 
de micro- 
computado- 
res que re- 

solveram migrar para 

o TK90X (ZX Spec- 

trum), constataram 

que a estrutura da te- 
la desse equipamento 

não é linear, isto é, 

não é sequencial. Figura 1 

Tanto é verdade 
qe. para pokear diretamente em uma 

terminada posição da tela, não basta 
adicionar o número de ue se 
deseja deslocar ao valor inicial da área 
de vídeo, como nos outros micros, pois 
após as 32 primeiras posições a coisa 
começa a complicar. O importante é não 
entrar em desespero e procurar entender 


o que se ps. 

O problema se deve ao fato de a área 
de vídeo ser de 6Kb (6144 bytes) e a 
área de atributos ser de apenas 768 by- 
tes. Para contornar este problema, Sir 


Vo 


MS nº 52, Dicas, 54, 
Em n na Seção póg. 


as, dicas Amplie caracteres é 
disponível apresentaram erros. Em Amplie 
caracteres o problema está na primeira li- 





Clive Sinclair usou de uma estrutura um 
tanto complexa a po com o vídeo. 

Primeiro, r ograma a seguir 
para entender ra o qe iro rei 


10 POR 1=16384 TO 22527 
20 POKE 1,255 
30 NEXT à 


Após isto, um navegante desavisado 
estará pensando como fazer pokear 
uma determinada posição da tela. Pri- 
meiramente, devemos saber como é divi- 
dida a tela. 


nha; logo após o comando DATA, o número 
é 160, e não 165. 

Já na dica Memória disponível, o erro 
está na linha 30, que fica assim: 


30 DATA 205,26,31,42,178,92,237 
66,68,77,201 


Em MS nº 51, no programa Simulador 
de provas, pág. 40, a listagem saiu com algu- 
mas imperfeições. Na parte “Preparação” as 
seguintes linhas apresentaram falhas: 


A área de vídeo foi separada em três 
setores (podemos chamar assim) de 
2048 bytes, conforme a figura 1. 

Cada setor é dividido em oito linhas 
(figura 2), dando um total de 24 linhas, 
sendo que as duas últimas são as linhas 
de edição, mensagens de erro etc. 

As linhas, por sua vez, são divididas 
em oito sublinhas; sendo que o “passo” 
é de 256 bytes. Para uma melhor com- 
preensão, na figura 3 é mostrada a divi- 
são da linha O À (aero), as outras são de 


que foi visto até 
aqui já é ses je uma 
posição na tela, bastando apenas utilizar 
a seguinte equação: 


16384 + 2048 * NST + 32 * NLS + 
256 * NSL +C = POSIÇÃO NA TELA 


Onde: 


NST — Número do setor (O a 2) 
NLS — Número da linha no setor (O a 7) 


êgjo nga vsa TO dO PRINT AT 4.0 
3 BINT AT, MUDANÇA 
88º esltêrao"” AD O, coscunsucaça 


Já na parte “Execução”, redigite as li- 
nhas abaixo: 


“2 ET cova. z6 


Bad FO à OR 285 0R7 THEM dO 





ENDEREÇO INICIAL Nº DA LINHA Nº DA LINHA 








DA LINHA NO SETOR DOG PRENR ME IMICIARO Nº DA SUBLINHA 
16384 0 DA SUBLINHA i “ 
16416 i 16384 
16448 2 16640 
1648 3 16896 
16512 4 17152 
: 16544 5 17408 
* 16576 6 17664 
16608 7 17920 
18432 e) 18176 
18464 l 16416 
18496 2 16672 
18528 4 
18560 4 
É 18592 5 Figura 3 
* 18624 6 70 FOR d=0 TO 31 
18655 À 80 POKE HL+ed, 255 
a 90 NEXT d 
R 100 LET HL=HL+256 
5 110 NEXT b 
x 16304) RE RSS 120 LET HL1=HL1+32 
5 sh 32 BYTES 130 LET a=a+1: IF a) 7 THEN LET a=0: 
6 Ne RETURN 
7 16480 É 
pe 140 GOTO 50 
Espero que estas explicações tenham 
Figura 2 ajudado a tirar algumas de suas dúvidas 
sobre o mecanismo de mapeamento da 
NSL — Número da sublinha (O a 7) 5 LET a=0 tela do TK90X. 
C -— Número da coluna (0 a 31) 10 LET HL1=16384: GOSUB 50 H 
20 LET HL1=18432: GOSUB 50 
Para finalizar, apresentamos um pro- 30 LET HL1=20480: GOSUB SO Alvaro Ferreira de Freitas Borja está cursando 
ite d nto 40 STOP o quarto ano de Engenharia Civil, ne UFPA. 
Ler que permite dar um pokeame Atusimente, ele trabalha como Desenhista 
inear na tela do TK90X. Lembre-se da 50 LET HLeHLI Projotinto do Tolpará, cando combáms usuário 
primeira tentativa. 60 FOR b=0 TO 7 dos micros TK8B3 e TK90X. 








APLICATIVOS FALANDO PORTUGUÊS 
EDUCATIVOS FALANDO PORTUGUÊS 
JOGOS EMOCIONANTES 


PROGRAMAS QUE VOCÊ ENTENDE! 













* APLICATIVOS * JOGOS EMOCIONANTES 
101 — CONTROLE DE ESTOQUE MSX = ALTOS CÓRO 
102 — AGENDA DE 301 — RALEIDOSCÓPIO DIGITAL 
ENDEREÇOS/MALA 502 — MS XADREZ 
DIRETA MSX E 
103 — PLANILHA ELETRÔNICA MSX 305 eiedo QUENTE ; 
e UTILITÁRIO 504 — MISSÃO: RESGATE DO SATÉLITE 
201 - EDITOR ASSEMBLER/ 505 — LABIRINTO DOS DIAMANTES 
DISSASSEMBLER MSX 506 — BANCO FANTASMA a 
* COLEÇÃO PRINCIPIANTES SO? — VISITANTE DO FUTURO : 
SOL — PRINCIPIANTE - E 
302 — PRINCIPIANTE - U 508 — O AVENTUREIRO DO CAMPO MAGHÉTICO Ê 


303 — PRINCIPIANTE - D 


MISES [= 


MUS RS E Im 


um senhor programa 


À VENDA NOS REVENDEDORES MSX RUA URUGUAIANA, 39/9035 - CEP 20050 








DE TODO O BRASIL. Rio de Janeiro - RJ - Tel.: (021) 221-1674 - CP 832/20001 








Shopping — praticava uma políti- 
ca de vendas agressiva, apresentan- 
do preços tão bons que diversas 


novo design). 


A Divisão Computer Shopping 


Aplicativos para MSX 


Os usuários da linha MSX já contam com mais sete aplicati 
vos, desenvolvidos pela Engesoft Tecnologia em informática 
São eles: contas s pagar e receber, controle de estoque, maia di 
reta, controle bencério fuso de caixa, folha de pagamento 
contabilidade e cqumento de obra Este último forme so 
construtor dados sabre mavemento de terra e fundação emper 
meabilização, svenaria, concreto, revestimento, pos, caberty 
rm € acompanhamento de obras em geral. A Engesotr fics ma 
Av. República do Libano, 2.073, em São Paulo, CEP 04501, vei 


1011) 549 -9788 





Microdigital: lançamentos e serviços 


A Microdigital recentemente 
recebeu propostas do governo me- 
xicano para implantar o micro 
TK90X como instrumento de en- 
sino ma rede de escolas públicas 
daquele pais 


Aqui no Brasi, a empresa lam- 
qou em abril o TK J000le, com 
eventos em diversas capita bras 
loiras a fum de estrestar 0 comisto 


nas ainda este més so preço 
de Cz$ 12 mil e 500, incorporan- 
do o sofrware TotalWorks —- uma 
planilha eletrônica, aliada a banco 
de dados e processador de texto, 
em portugués. 


Os usuários do TK 3000lle 
poderão adquirir o SuperCalc 3A 
a preços especiais. Outra novida- 
de, prevista para maio, é o TK90X 
pelos ordene que será vendido 
por 4 mil e 292 A nova ver 
são vem com programas € instru- 
ções para o uso ds caneta órca 
George Kovari - Presidente ds 
empress — acredita que eis será 
“tl “especiaimente na áres educa 
cional, pois é o primero micro da 
América Latina que já vem com 
a light -pen acoplada” 

A empresa notifica que seu 
posto de atendimento de São Pau- 
to tem novo endereço: Rua Tagi- 
puru, 209 - Perdizes - São Paulo, 
Capital, tel.: (011) 67-18391, 


Sinclair acessa Videotexto 


A Rensi Eletrônica está tam 
cando o RSVDT-01, um km que 


Homologado pela Telesp e 
Microdigital, o RSVDT-01 é um 
cartucho que contém um progra 
ma em EPROM (dispensando o 
gravador cassete), que é conec- 
tado à saída do micro que, por 
sua vez, é ligado d linha telefônica 
por um modem, Assim, o público 
poderá obter rapidamente dados 
econômicos como cotações da 


| 





z 






o 


O cartucho ASVDT-O! e o mo 
dem 1200/75 
compra de livros etc. 

A Rensi Eletrônica fica na Rus 
Padre Raposo, 963 Mooca - São 
Pauto - SP, tel .- (011) 939828 


com 160 cps; enquanto que o 
CP-.500 MBO em breve virá com 





Elebra lança novos modelos 


Com um parque 
instalado de mass de 
30 000 impressoras 
e objetivando ofere- 
cer produtos adequa- 
dos às atuais necessi- 
dades do mercado 
nacional de micro- 
computadores, a Ele- 
bra Informática está 
lançando os seus no- 
vos madeios Móni- 
ca, Mônica Plus e 
Emília PC 


As novas impres 
sora são mas leves 
Que os madeios sm- 
teriores, podem um- 
primir caracteres e 
símbolos nas quais 
dades carta e dados, tém veloci- 
dades de impressão de 160 cps 
(Mônica e Mônica Plus) ou 220 
cps (Emília PC) e também podem 
utilizar formulários contínuos de 
10 6 vias ou folhas soltas de dife- 
rentes tamanhos, graças so pro- 
cesso de tracionamento do papel 
por fricção 

Todas estas características alia 
de é possibilidade de utiliza até 


Novidades 
Cobra 


A Cobra Computadores vai 
continuar aperfeiçoando cada vez 
mais o Cobra 210. Com o recente 
lançamento da interface multiple- 
xadora Micromux, as possibilida- 
des de uso do 210 foram amplia 


central IBM, Já o Spoll-M permite 
o uso de uma única Impressora 
em mais de uma aplicação, sem 


gave o material a ser impresso 
em disco, executando -o depos 


LA 
La | 


Mónica Mônica Prus e Emília PC da Elebra : 


quatro densidades dite- 
rentes (exceto a que só 
tem duas densidades), permitem a 
impressão de tabelas e gráficos 
de alta qualidade produzidos 
pelos aplicativos mais avançados 
disponíveis como o Simphony, 
dBaese Ill e outros, tornando 
essas impressoras adequadas pera 
aplicações domésticas, profissio 
mais ou comercias. 


Curso sobre 
Appleworks 


O Microcurso está promaven- 
do curso sobre o Royalworks, 
uma tr feita pela Royal 
Software, de São Paulo, do pro- 
grama americano Appleworksa, que 
integra planilha de cálculo eletró- 
nica, banco de dados e editor de 


na Av Paulista, 807, q ' 
te! 1011) 284-2968, CEP 01311, 
São Paulo 


JVA mudou 


A JVA, loja que comer 
cializa programas das marcas 


Softine e Ciberne, mudou 
de endereço. Agora ela se en- 
contra na Rua Mayrink Vel 
ga, nº 32 - sobrelojs - Com 
to, Ry 
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Campus contrata 


Délio Lima 


A Editora Campus conta agora com 
mais um forte nome em seu quadro de 
autores nacionais. O já conhecido autor 
da linha Sinclair, Délio Santos Lima, 
foi contratado pela Campus, que reedi- 
tará seus principais livros e lançará ou- 


tros para a linha Apple e TK90X, 

Em conjunto com a Edisa, a editora 
está preparando o livro “Linguagem 
C”, de Kernighan e Ritchie, um dos li- 
vros sobre esta linguagem mais vendi- 
dos no mundo. Para os usuários de 
Apple, já estão nas lojas os “Guias do 
Usuário Brasileiro” Visicalc e Visitrend/ 
Visiplor, este último da autoria de Raul 
Udo Christmann, colaborador de MS. 


Opção de 
1-7000 PCxt 


Uma nova opção para os usuá- 
rios com grande necessidade de 
memória de massa é o 1-7000 
PCxt, agora com Winchester de 40 
Mb, além da unidade de disco de 
5 1/4" e placa de expansão de 
640 Kb. Com maior capacidade 
de armazenamento e tempo mé- 
dio de acesso à trilha reduzido de 
B5 ms para 30 ms, essa configura 
ção representa uma significativa 
economia. 

A Itautec apresenta também 
um sistema composto por cartu- 
cho, interface e caixa stand by, 
já homologado pela Embratel, 
Que liga o |-7000 à rede de telex. 
O sistema permite acompanhar 
o texto através do monitor de ví- 
deo, gravando as mensagens em 
disquete e realizando instanta- 
neamente as correções necessárias 
por meio do editor de textos ou 
do editor telex. Para receber as 
mensagens o micro não precisa 
estar ligado, e nem interromper 
seu trabalho, pois elas podem ser 
armazenadas no buffer de memó- 
ria não volátil que está inserido 
na placa da interface telex e tem 
capacidade para guardar 120 li- 
nhas. 


Impressão 
em IBM 


Possibilitar o uso da nova má- 
quina de escrever eletrônica da 
IBM como uma impressora quali- 
dade carta é o que oferece o Edi- 
tex 2000-P, uma interface lança- 
da em março pela Computex 
Indústria e Comércio. 

O Editex 2000-P pode ser 
conectado a qualquer micro que 
tenha uma saída paralela padrão 
Centronics. Ele permite velocida- 
de de de 16 cps; possui 
buffer de 2,8 ou 16 Kb e coman- 
dos para estabelecer o tamanho 
do formulário, linha'de impressão, 
pausa automática etc. 

Maiores informações podem 
ser obtidas na Computex, à Rua 
Paraibuna, 1692, São José dos 
Campos, São Paulo, tel.: (0123) 
22-1006, CEP 12230. 
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Acessórios 
diversos 


A Clone Produtos Especiais oferece dois 
modelos de circuladores de ar para micros da 
linha Apple. Com potência de 300 watts por 
tomada (total de duas); consumo de cinco 
watts (motor Rotron); alimentação de 100 e 
220 volts; 50 e 40 ciclos A/C, o Ciclone | pre- 
serva a temperatura baixa e constante, evitan- 
do a retenção de calor nas placas e interfaces, 
prejudicial à performance do equipamento. 
O Ciclone Commander dispõe ainda de fil- 
tro de linha, que elimina ruídos e protege o 
sistema ao não permitir a passagem de picos 
de tensão. Entre outros equipamentos fabrica- 
dos pela empresa, encontram-se o Filtron - 
filtro de linha para sistemas IBM, Apple, 


Moddata diversifica 


Crescimento e diversifica- 
ção de atividades são as atuais 
diretrizes da Moddata. Tal 
diversificação implicou na di- 
visão da empresa em cinco 
outras e, desta forma, surgi- 
ram a Moddata Teleinformá- 
tica, responsável pelos mo- 
dems; a Moddata Computa- 
dores e Telecomunicações, 
fabricante de computadores 
de grande porte; e Moddata 
Máquinas e Componentes, 
produtora de visores de cris- 
tal líquido; a Moddata Servi- 
ços, prestadora de serviços 
de manutenção dos compu- 
tadores de grande porte; e a 
Moddata Incorporated, res- 
ponsável pelos negócios de 
exportação /importação do 
grupo no exterior. 

Um fator responsável pela 
diversificação foram os acor- 
dos internacionais formados 
pela Moddata. Com a NEC, a 
empresa adquiriu tecnologia 
para a produção de equipa- 
mentos de comunicação (o 
teleopen, por exemplo); com 
a Control Data, tecnologia 


para a fabricação de compu- 
tadores de grande porte e 
com a Epson, o know-how 
para a produção dos visores 
de cristal líquido. 


Através do acordo com a 
Control Data, a Moddata in- 
gressará no restrito círculo 
dos fabricantes de mainfra- 
mes. Nele a Control Data se 
compromete a transferir para 
a Moddata, no prazo máxi- 
mo de cinco anos, toda a 
tecnologia do computador 
modelo 830 da linha Cyber 
180, inclusive o código fonte 
do sistema operacional. 


O contrato com a Epson 
significa a entrada da Modda- 
ta numa área inexplorada no 
Brasil: a produção de visores 
de cristal líquido. A nível 
inicial, a Moddata apenas 
encapsulará e testará os viso- 
res, que serão vendidos para 
os fabricantes nacionais de 
calculadores. Posteriormen- 
te, é possível que a empresa 
passe a fabricar visores para 
micros portáteis. 














O Ciclone 1!, da Clone. 


TAS; e o Picotex, perfurador de disquetes 
flexíveis de 5 1/4" que, através de lâmina 
especial de aço, picota uma lateral dos disque- 
tes de face simples, permitindo o uso da outra 
face, o que duplica seu rendimento. O endere- 
ço da Clone é Rua Arnaldo Maguicaro, SP, 
CEP 04691, tel.: (011) 524-5850. 


Lançamentos 
Multisystems 


A Multisystems, software- hou- 
se do Rio de Janeiro, lançou re- 
centemente dois novos produtos: 
o Multi-BASIC, compilador BA- 
SIC multiusuário e o R-Office, 
sistema integrado para a auto- 
mação de escritórios. 

O Multi- BASIC é um compila- 
dor escrito na linguagem C e 
possui sintaxe e gramática simila- 
res à adotada pelo BASIC da Mi- 
crosoft, desenvolvido para o IBM- 
PC/MS-DOS. Ele pode ser utilizado 
em máquinas com microprocessa- 
dores da linha MC 68000 ou no 
IBM-PCAT, seja sob o sistema ope- 
racional UNIX ou compatíveis. 

Já o R-Office é um sistema 
modular, desenvolvido em C e As- 
sembler. É composto por um pro- 
cessador de textos, gerenciador 
de mesa, banco de dados relacio- 
nal, planilha eletrônica simples 
e gerador de relatórios. A Multi- 
systems fica à Rua Romão de 
Aguilera Campos, 69 - Nova Fri- 
burgo - RJ, tel.: (0245) 22-4208 
e 22-7277, CEP 28600. 


Pacotes 


Nasajon paulista 


A firma carioca Nasajon Sistemas, que assinou contrato de represen- 
tação comercial de seus produtos com a Pró-Eletrônica de São Paulo, 
vai abrir uma filial paulista. Além dos já conhecidos softwares para as 
linhas TRS-80, Apple e CP/M, como crediário; controle de obras; con- 
trole de agência de turismo; administração de imóveis; controle de 
movimentação de caixa e administração de clínica médica, a Nasajon 
também possui agora versões para compatíveis com o IBM-PC. 


Epcom lança periféricos 


A Epcom, fabricante do micro HotBit, está investindo na 
área de periféricos, como atestam seus recentes lançamentos, o 
gravador HB-2400 e o cartucho para comunicação HB-3000. A 


empresa também está trabalhando para colocar no mercado as 
unidades de disco de 5 1/4" e 3 1/2", que deverão ser lançadas 
respectivamente no segundo semestre de 86 e início de 1987, 0 
que permitirá ao usuário rodar os dois sistemas operacionais 
mais difundidos atualmente: o CP/M e o MS-DOS, colocando 
assim à disposição a mais vasta biblioteca de software existente 





para 
TRS-80 


A PRH Consultores está ofere- 
cendo toda uma linha de pacotes 
e programas aplicativos para os 
micros compatíveis com o TRS- 
80 modelo Ill. 

Dentre eles, podemos citar o 
Procads — pacote para criação e 
manipulação de cadastros ou ar- 
quivos de dados; o Aplicativo 
Médico, programa que permite 
aos profissionais desta área cadas- 
trar clientes, receitas, contas a 
receber e históricos e o Config, 
programa para elaboração de orça- 
mentos em engenharia, computa- 
ção etc. 

A PRH fica na Rua México, 
70 - grupo 810/811, Centro - RJ, 
tel.: (021) 220-3038 CEP 
20031. 





bles 








Novos softwares 
para o 90X 


Depois do “Artista”, um soft- 
ware para geração de gráficos, de- 
senhos, figuras e caracteres para o 
TK90X, a empresa paulista Ciber- 
tron está colocando no mercado 
dois novos programas: Planilha 
90X e Banco de Dados; prometen- 
do pera junho o lançamento do 
TK-Word 90, processador de tex- 
to com acentuação. Maiores infor- 
mações na empresa, pelo telefone 
(011) 204-9988. 


Sector lança XT 


Em agosto do ano passado, a 
empresa Softec — primeira a lan- 
çar um equipamento compatível 
com a linha IBM-PC no Brasil, o 
Ego — entrou em cisão jurídica, 
dividindo seu patrimônio e dando 
origem assim a duas novas empre- 
sas no setor. Uma delas, a Sector 
Informática, partiu para o desen- 
volvimento de um novo micro: o 
Sector XT, cuja configuração bá- 
sica inclui UCP e teclado; monitor 
de vídeo COMPO; memória RAM 
inicial de 512 Kb; um drive de 
5 1/4"; uma porta serial e outra 
persieia padrão Centronics, pelo 
preço de Cz$ 145 mil. 

A empresa apresenta ainda op- 
ções de redes em barra, adquiridas 
em OEM da Cetus e da empresa 
paulista NCT (PC-NET). O Sector 
XT trabalha em ambiente multi 
usuário, sob sistema operacional 
Analix — versão da Softec do 
Unix, da norte-americana AT&T. 
A empresa planeja ainda lançar 
um micro compatível com o AT 
da IBM, até novembro deste ano. 


Produtos ATS 


! Plus; Thor PCXT e da família 
de monitores de vídeo Apollo, 
pessando ainda a fabricar, este 
ano, monitores de vídeo policro- 
máticos de alta resolução (640 
x 480 pontos). Para 1987, a em- 
presa prevê o lançamento de uma 
Po compatível com o AT, da 
IBM. 


Qalab promove 
curso 


A Qalab vai oferecer o 
curso “Controle de interfe- 
rência em equipamentos ele- 
trônicos”, nos dias 14, 15 e 
16 de maio, no Caesar Park 
Hotel de São Paulo. Maiores 
informações podem ser obti- 
das na própria Qalab Prote- 


ção Eletromagnética, pelo te- 
lefone (021) 220-0467. 





Novo micro Medidata 


O M1001 Slim, recentemente lançado pela Medidata, 
vem atender às faixas de usuários de supermicro de pe- 
queno e médio porte, não atendidas pelo M1001. O 


novo equipamen 


to é baseado no microprocessador Zilog 


8000 (16/32 bits); trabalha com até cinco terminais; 


512 Kb de memória: drives de 5 1/4" 


: unidades de fita 


para backup de 20 Mb e Winchesters de 25 Mb, poden- 
do ser adquirido por um preço mais acessível que o 


M1001. 


A Medidata garante atotal compatibilidade do M1001 
Slim com os sistemas da empresa, dando inclusive, a 
possibilidade de expansão do equipamento em caso de 


necessidades futuras. 


1-2-3 deu em Samba 


A empresa carioca PC -Softwa- 
re lançou em março a planilha 
Samba. Mesmo dizendo -se o maior 
revendedor carioca do Lotus 1-2- 
3, Carlos Mário Gomes de Almei- 
da, presidente da PC, não se fez 
de rogado e admitiu que o produ- 
to “é uma cópia fiel do Lotus, 
só que melhorado”. Segundo ele, 
o Semba oferece maior facilida- 
de de impressão de gráficos e 
transferência de arquivos; acen- 
tuação natural no teclado, vídeo e 
impressora; alocação dinâmica de 
memória (células em branco não 
ocupam aspaço) e compatibilida- 
de com o co-processador aritmé- 
tico 8087, sendo que estas duas 
últimas características já estão 
incorporadas na versão 2.0 do Lo- 
tus, divulgada em 85 pela Inter- 
corp, que representa o produto 
no Brasil. A nova planilha — que 
segundo a empresa consumiu dois 
anos de desenvolvimento — apre- 
senta-se em três disquetes, sendo 
dois de sistema e um com a bi- 
blioteca de utilitários; e um 
manual, naturalmente em portu- 
guês, custando Cz$ 7.450,00. Pa- 
ra incentivar as vendas — a expec- 


tativa da PC é de que o Samba 
venda a mesma quantidade que o 
1-2-3 — a empresa oferecerá, 
so menos nos dois próximos me- 
ses, um curso básico gratuito e 
um disquete de demonstração, 
também gratuito para pessoas 
jurídicas. 

Poucos dias depois desta aven- 
tura, no entanto, a PC Software 
foi cancelada como 
dos produtos da Intercorp do Bra- 
sil, pois segundo Ricardo Nick, 
Gerente Geral da Divisão de 
Sofnware da empresa, existe uma 
cláusula no contrato que proíbe 
a revenda de fabricar ou distri- 
buir softwares similares. Nick, 
que diz não aceitar a posição 
“pouco ética” da PC-Software, 
afirma que a atitude da empre- 
sa — segundo ele, uma das meno- 
res revendedoras de Lotus no Rio, 
sendo a maior a Sacco — contrl- 
bul para tirar a seriedade do mer- 
cado de software. E acrescenta, 
“não posso aceitar a afirmação 
= que o Samba seja melhor que 

1.2.3, apos ele é baseado na 
cando 1.A do Lotus, já ultrapas- 


Para hotéis 3 estrelas 


Já há algum tempo que os 
grandes hotéis para a 
necessidade de informatizar suas 
rotinas de funcionamento. Agora, 
chegou a vez dos hotéis de duas 6 
trós estrelas, com os quais a Gra- 
ne Informática pretende traba- 
har. 

A Grafus, que desenvolve soft- 
wares para Apple e IBM-PC, 
tem no sistema de hotelaria (já 
instalado em 15 hotéis no perío- 
do de um ano) o carro-chefe de 
suas vendas. O sistema, denomina- 
do HotGraf, é modular, e seu 
principal módulo inclui fatura 


PC acessa 


mento; ocupação (situação dos 
apartamentos); contabilidade e re- 
servas, custando Cz$ 30 mil. Ou- 
tros módulos podem ser adicio- 
nados ao sistema: reservas; restau- 
rante; controle de estoques; mala 
direta o telex. 

Além do HotGraf, a Grafus 
possui um sistema de contabilida- 
de on-line e outro para geração 
de etiquetas com códigos de 
barras, para ser usado em peque- 
nos estabelecimentos comerciais. 
A Grafus fica na Av. Marechal Cá- 
mara, nº 160, conj. 1123, e aten- 
de pelo tel.: (021) 262-1707. 


Videotexto 


A R. C. Tecnologia em Software, empresa paulista criada há seis 
meses, desenvolveu um programa que permite aos micros da linha IBM- 
PC e compatíveis acessarem o Sistema Videotexto: o VTX-PC. Operan- 
do em padrão gráfico (320 x 200); a cores ou em preto e branco; à 
velocidade de 1.200/75 bps, o sistema conta com comandos on-line, 


dez chaves programáveis, transmissão automática de senha, 


inversão de tela. 


e permite 


O VTX-PC é comercializado através de revendedores. Maiores infor- 


mações na R. C. Tecnologia, pelo tel.: 


(011) 212-9930. 


Na foto. 
o M1001 Stim 





ZIM no ED-680 


A Maja Informática Ltda., sys 
tem-house de São Paulo, instalou 
uma cópia de seu Banco de Da 
dos Relacional, denominado Zim 
no supermicro ED-680, instalado 
na UFRGS. 

Zim é um sistema gerenciador 
de Banco de Dados estruturado 
no modelo de entidades relaciona- 
des. A utilização deste software 
permite a ligação do ED-XT 
(compatível com o IBM) ao ED- 
680, interligando o sistema opera 
cional Edix ao MS-DOS. O pro- 
jeto Maja-Edisa- UFRGS objetiva 
colocar à disposição dos alunos 


Quatro em um 


Quatro capacidades num único 
produto é o que oferece o Unison, 
O novo software para micros da li- 
nha IBM-PC desenvolvido pela em- 
sp emericana Martin rietta 

om cen no Brasil pela Princeton 


O é dniadio do idas pé 
micro-mainframe, 
recursos pera acesso 8 bancos de 
dados do micro e do mainframe, 
linguagem de quarta geração e um 
gerenciador de todos os compo- 
nentes do sistema. Maiores infor- 
mações podem ser obtidas ne 
Princeton Systems à Av. Paulista, 
1294 - 229 andar - São Paulo, 
tel.; (011) 289-0077. 


No CPD de MS 


O material relacionado abaixo 
foi enviado pelos fabricantes para 
análise no CPD de MS. Voltare- 


=, parsieio, 
da Micro Equipamentos ((011) 
533-2326), permite conectar 
qualquer impressora paralela (pa 
drão centronics) à saída serial, do 
micro, inclusive aos da linha Color. 
. Em software, recebemos lança- 
mentos, para MSX, da Gradiente, 
Sharp e Cibertron. Para o TK90X, 
recobemos programas da Micro- 
sotf, Ciberne, Cibertron e Stop 
Informática, sendo que esta últi- 
ma enviou-nos também a fita vir- 
gem C-20 Soft-Loader, própria 
para micros. 
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SERVIÇO EXPRESSO PARA TODO O BRASIL 


GRAFIX FT 80 


80 colunas, 160 CPs, rolo p papel solto, 
cce tractor p'formulário continuo, compativel com COMPATÍVEL 


PROM ÃO BRASIL todos os 
TRADE CENTER CCE micros. 


CPU Exato Pro +Monitor + 
Drive + 4 Interfaces 

A escolher Cz$ 20.999 

em 4 vezes s/juros 

ou à vista Cz$ 18.899 
(10% de desconto) 









GRAFIX HS 100 


(160 CPS) 19.970 
ge HS 100 132 colunas - 180 CPS 
tal t fi 
TK 90 X/48K Compativel 9 
c'Apple, 
2790 IBM PC, etc 

48 K de memória 
RAM colorido 
Grátis 5 jogos à 
sua escolha 
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COM IBM/XT 


42.500 

16 Bits, 640 K bytes de 

memória RAM, placa de multi-função 
c'RS 232 e paralela 
centronics, placas controladoras 

de drives, placa controladora 

de video gráfica, 

fonte interna de 150W 





BTC/XT 100% 


COMPATÍVEL 
C/IBM 640K 


Consulte: 16 Bits 256 K 
Bytes de RAM, 2 drives 

Slim, placa controladora 

de drives, placa controladora 
de video gráfica, 

fonte interna de alimentação 
de 150W 
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Combinar diferentes cores no modo de alta resolução gráfica em 
micros da linha TRS-Color é a proposta do autor deste artigo. 








Modos gráficos 


no Color 


Danie! Detanico 


s microcomputadores compatíveis com a família TRS- 

Color têm uma grande capacidade gráfica, Esta capacidade 

não é explorada em toda a sua amplitude, ou pelo menos 

não é difundida pelo fabricante nacional em seu manual. 

Originalmente (segundo o manual), o micro possui cinco 
modos gráficos: um de baixa resolução, que pode usar dois diferentes 
conjuntos de duas cores (preto/cinza ou preto/verde); um modo de 
média resolução, com os mesmos conjuntos de cores; dois de média re- 
solução, que podem utilizar até quatro cores conjuntamente (verde/ 
amarelo /azul/vermelho ou cinza/ciano/roxo/laranja); e, por último, 
um modo de alta resolução, que utiliza apenas conjuntos de duas cores, 
os mesmos do de baixa resolução. 

Seja para um jogo, gráfico ou efeito visual, a cor preta tem um char- 
me todo especial, ao mesmo tempo que as outras cores são indispensá- 
veis. Ocorre então um problema: como conciliar o preto com algumas 
cores e ainda por cima trabalhar no modo de alta resolução? Em pro- 
gramas em linguagem de máquina isto consegue ser feito. 

Mas em BASIC existe um meio de se utilizar a tela de alta resolução 
e cores em conjuntos de quatro (preto /verde /azul/cinza ou verde escu- 
ro /verde/verde azulado/verde claro), sendo que os tons do verde e 
azul são diferentes dos usados nos modos comuns. É uma fórmula 
muito simples, mas também cheia de macetes que podem atrapalhar 
bastante a vida do programador (atrapalhou bastante a minha, pelo me- 
nos). A fórmula é a seguinte: 


1 PMODE 4,1:REM E DEFINIDA A ALTA RESOLUÇÃO 
2 SCREEN 1,1:REM E ESCOLHIDO UM CONJUNTO DE CORES 
3 PMODE 3,1:REM AÍ ESTÁ O TURQUESINHO 


Ou seja, primeiro se define o modo de alta resolução; segundo, se 
escolhe o conjunto de cores; e finalmente é definida a média resolução. 
Simples, não? 

Tente este programa e veja as cores disponíveis no primeiro conjun- 
to; 


10 PMODE 4,1:SCREEN 1,0:PMODE 3,1:PCLS 0:REM SÃO DEFINIDAS A 
ALTA E MÉDIA RESOLUÇÃO E O CONJUNTO DE CORES 


20 Y=0 

30 FOR R=0 TO 192 STEP 48:ABRE O LAÇO PARA DESENHAR OS RETÂNGULOS 
40 Y=y+1 

50 LINE (0,R)-(256,R+48), PSET,BF:REM DESENHA OS RETÂNGULOS 


60 NEXT R:REM FECHA LAÇO 
0 Goro &o 


= 


Para ver o outro conjunto, faça a seguinte modificação: 
10 PMODE 4,1:SCREEN 1,1:PMODE 3,1:PCLS O:REM REDEFINE O 
CONJUNTO DE CORES 


Observe que você poderá utilizar esta técnica em seus programas. Po- 
rém, tome o cuidado de não alterar o conjunto de cores no meio dos 
mesmos, pois se isto ocorrer, o programa sairá do modo gráfico espe- 
cial 


Para resolver este problema, simplesmente reescreva a sequência de 
entrada para o modo gráfico especial. 
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PPOINT 





Se você está habituado a usar a função PPOINT, sabe que ela utiliza 
os mesmos parâmetros (códigos de cores) das outras funções gráficas. 

Mas, neste modo gráfico especial, a coisa toda muda e os valores 
utilizados ora respeitam o código de cores (SCREEN N,0), ora não res- 
peitam o código de cores original (SCREEN N,1), o que torna complica- 
do, para quem não tem este conhecimento, a operação de varredura de 
pontos em jogos, por exemplo. 


No conjunto de cores 0, o código 
de cores fica definido assim: 


E no conjunto 1 fica: 


verde escuro 1 preto 5 
verde 2 verde 6 
verde azulado 3 azul 4 
verde claro 4 cinza 8 


Somente com os valores descritos acima a função PPOINT funciona, 
por isso não tente usar outros valores. 

Se você ainda tiver alguma dúvida, consulte a figura 1, 

E, por último, acrescente ao programa original as linhas abaixo: 


80 Y=4 
90 FOR T=24 TO 190 STEP 48 
100 Y=Y+1 


110 IF PPOINT (20,T)=Y THEN SOUND 100,3 


120 NEXT T:GOTO 120 


Funciona, não é? Mas tente modificar o código de cores para o 
código original (80 Y=0). Funciona? Não. É uma boa dica para você 
criar ár interessantes, principalmente jogos. Bom divertimento 
ou trabalho. 
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Figura 1 





Daniel Detanico é usuário dos equipamentos CP 400 e CP 500 e progra- 
ma em BASIC, 








Você, usuário da linha TRS-80, já teve vontade de modificar o BASIC 
do seu micro e acrescentar novos comandos? Se ainda não conseguiu 
realizar este desejo, este programa pode resolver o seu problema. 





Novos comandos do BASIC 


Sérgio Santa Cruz 


ocê já teve, alguma vez, vontade 

de modificar o BASIC do seu 

DOS? Já cansou-se de ter sempre 

os mesmos comandos sem nenhu- 

ma variação? Já teve ótimas idéias 
para comandos novos, utilíssimos, mas impos- 
síveis de se implementar? Já teve vontade de 
incluir no seu computador alguns comandos de 
outros equipamentos que sempre lhe causa- 
ram inveja? Pois, se você desenvolve progra- 
mas em Assembler para micros da linha TRS- 
80 modelos I/III e já teve essas vontades e 
outras semelhantes, este pode ser o programa 
pelo qual você estava esperando! Eu descreverei, 
aqui, um método de implementação de novos 
comandos ao Disk BASIC, sem prejudicar 
nenhum dos comandos normais já implemen- 
tados. 


A INSTRUÇÃO RST 10H 


A base do método aqui descrito é a ins- 
trução RST 10H do microprocessador Z80. 
Existem outros métodos, um dos quais, in- 
clusive, foi descrito por Clóvis e Rubens Al- 
meida Menezes, na edição de MS nº 35 (de 
agosto de 1984). Esta instrução equivale a um 
CALL de um único byte, ou seja, o endereço 
da instrução que segue o RST 10H é salvo no 
stack, de modo que o primeiro RET encontra- 
do fará o programa voltar para o coa 
10H. No endereço 10H encontra-se um JP 
4003H, que é um endereço da RAM; e no en- 
dereço 4003H encontra-se a instrução JP 
ID7EH. 

A partir do endereço 1D78H começa uma 
sub-rotina que aponta HL para o próximo ca- 
ráter diferente de espaço no buffer para o 
qual HL está apontando. Assim, pode-se di- 
zer que RST 10H equivale a um CALL 10H, 
com a vantagem de ocupar apenas um byte. 
Aliás, esta instrução não é a única do tipo 
RST existente; dê uma olhada na figura 1 para 
ver as outras. Caso você também tenha alguma 
dúvida sobre as rotinas da ROM, consulte a fi- 
gura 2. 

Ora, perguntará o augusto leitor destas li- 
nhas, e o que isso tem a ver com incluir novos 
comandos em BASIC? Bem, a história é a 
seguinte: a rotina do interpretador BASIC — 
que executa programas na memória logo de- 
pois de você usar o comando RUN — começa 
no endereço 1DSAH, justamente com um 
RST 10H (HAL já aponta para o buffer onde 
está armazenado o programa BASIC), de 
modo a verificar qual é o próximo caráter e, 
assim, identificar o próximo comando. Por- 
tanto, como foi dito acima, a instrução RST 
10H força uma passagem pelo endere 
4003H da RAM antes de seguir adiante até a 


30 





Reinicializa o computador (vai para o endereço 0000H). 
Compara o proximo byte do programa com o byte para o 


qual HL aponta; 


se forem iguais, 
se forem diferentes, emite um SYNTAX ERROR. 


executa um RST 10H; 
Vai para o 


endereço 4000H e depois para o endereço 1C96H. 


Aponta HL para o próximo caráter diferente de 
carrega-o no acumulador. a 
um digito, e Z se for 00H ou " 


4006H e 1D78H. 


espaço e 
C se for 
endereços 


As flags são setadas: 
“". Vai para os 


Compara os conteúdos de DE e HL, setando as flags de 


acordo (Z se HL=DE, 


NZ se HLG>DDE; C se HLCDE, NC se 


HL)=DE). Vai para os endereços 4006H e 1C90H. 
Chamada quando a tecla BREAK é pressionada. Também é 
usada para tarefas especiais pelo DOS. Vai para o endere 


ço 400CH. 


Chama e carrega o DEBUG (este RST costuma variar entre 
alguns DOSes). Vai para o endereço 400FH, 
Vetor de interrupções mascaráveis. Vai para o endereço 


4012H. 


Figura 1 


rotina do endereço 1D78H, Desta forma, se 
for escrito um programa que modifique o 
conteúdo desse endereço, fazendo-o apontar 
para uma outra rotina qualquer, esta torna-se 
a rotina de interpretação dos comandos do 
BASIC. Se ao fim desta colocarmos um JP 
1D78H tomando o cuidado de verificar que 
HL continue apontando para o buffer, ela po- 
derá reconhecer novos comandos e depois 
voltar à rotina que reconhece os antigos. 


O PROGRAMA NCOMS /CMD 


O NCOMS/CMD (Novos COMandoS) foi 
escrito em um DGT-100 da Digitus com um 
drive, mas funciona em qualquer modelo 
TRS-80. Ele tem dois objetivos: em primeiro 
lugar, ilustrar a técnica acima mencionada e 
permitir a sua melhor compreensão; e em 
segundo, acrescentar nove novos comandos 
ao BASIC normal, que ajudarão o programa- 
dor BASIC a desenvolver seus programas. 
Além disso, o programa ainda substitui a 
mensagem Ready do BASIC por SBASIC OK 
(SuperBASIC OK); isto é feito através do uso 
do vetor do modo de comando do BASIC 
(endereço 41ACH), por onde o interpretador 
passa exatamente antes de imprimir a mensa- 
gem Ready. 


Para fazer funcionar o programa NCOMS / 
CMD, primeiro carregue-o do DOS com o 
comando LOAD NCOMS/CMD. Depois, entre 
normalmente no BASIC de disco e escreva: 
DEFUSR=&HFBCO:S=USR(0):NEW e aperte 
< RETURN>. O programa responderá SBA- 
SIC OK. 





Os novos comandos a sua disposição são 

os seguintes: 
- SWAP X$,Y$: troca os respectivos con- 
teúdos das variáveis X$ e Y$. Um só SWAP 
pode trocar várias variáveis, desde que elas 
estejam todas aos pares (SWAP A$,B$,C$, 
D$...). Se houver um número ímpar de va- 
riáveis ou se elas não forem strings, ocorrerá 
um erro. 

UPC(X$): transforma todos os caracteres 
da string X$ em maiúsculas. 

SOUND X,Y: emite um som. A distância 

entre duas ondas sonoras é X, e a duração do 
som é Y, variando os dois de O a 255. Assim 
quanto menor for o X, tanto mais agudo será 
o som; e quanto maior, tanto mais grave. 
. INVERSE X TO Y: inverte o vídeo (quer 
dizer, acende os pixels a dos e apaga os 
acesos) da posição de O X até Y, va- 
riando ambos de O a 1023. Se X e Y forem 
omitidos (se for escrito apenas INVERSE), 
a tela será invertida; e se uma vírgula for 
colocada após o Y, novas coordenadas do 
dem ser incluídas(INVERSE O TO 64, 960 
TO 1023,...). 

Pig a enche a tela com o caráter cujo 
código é X, variando de O a 255 e posicionan- 
do o cursor na primeira posição da tela. 
Pode-se também usar uma string no lugar de 
X(CLS(A $)), sendo que, nesse caso, o primei- 
ro caráter dessa string será usado para encher 


a tela. 

- LOCATE X,Y: como no IBM-PC, este 
comando posiciona o cursor na linha X(va- 
riando de O a 15), coluna Y(variando de O a 
64), de modô que o próximo comando 
PRINT imprima nessa posição. 


MICRO SISTEMAS, maio/86 


& 


Flag de modelo I/III. Este endereço contém um byte OlH se 
o computador for um TRS-80 modelo I ou compatível, e outro 
valor se for um TRS-80 modelo III ou compatível. 
20F9H - Põem o computador em seu estado normal antes de 
chamar a rotina que imprime READY. 

Imprime a mensagem de erro TYPE MISMATCH se a variável que 
estiver no acumulador de software não for uma string. 
Imprime a mensagem de erro SYNTAX ERROR. 

- Rotina chamada pela instrução RST 10H (ver figura 1). 

- Executa um comando RESTORE normal. 

- Imprime a mensagem de erro ILLEGAL FUNCTION CALL. 

- Traduz a string representando em ASCII um número decimal 
para hexadecimal e põe o resultado em DE. 
Procura entre as linhas existentes do programa BASIC aquela 
cujo número de linha é igual ao conteúdo de DE. Ao acha-la, 
põe o endereço da sua posição de memória em HL. 
Calcula o valor da expressão para a qual HL aponta (não im- 
porta o tipo: string, precisão dupla, precisão simples ou 
inteira), pondo o resultado no acumulador de software e 
setando a flag 40AFH para indicar o tipo do resultado. 
Põe em DE o VARPTR da variável para a qual HL aponta. 
Calcula o valor da expressão para a qual HL aponta e põe o 
resultado em DE. Ocorre um TYPE MISMATCH se a expressão for 
do tipo string. 
Vetor da instrução RST 10H. 
Contém a posição do cursor na tela. 
Flag de tela no modelo I. Seu conteúdo pode ser: 
O - 16 x 64 caracteres 8 - 16 x 32 caracteres. 
Ponteiro do espaço reservado para strings pelo BASIC 
(conteúdo determinado pelo comando CLEAR). 
Flag tipo-de-variável do acumulador de software. Seu conteú 
do pode ser: 
2 - inteira 4 - precisão simples 
3 - string 8 - precisão dupla 
Ponteiro do último byte utilizável pelo programa BASIC (topo 
da memória - RAMTOP)., 
Ponteiro do buffer usado pelo BASIC para manipular as strings 
temporariamente, quando está calculando uma expressão do tipo 
string. 
Início do buffer de manipulação de strings. 
Ponteiro do stack do BASIC. 
Aponta para o próximo dado do comando DATA que deverá ser 
lido pelo comando READ. 
Acumulador de software. Nesse endereço (e nos vizinhos, se 
necessário - precisão simples ou dupla), o BASIC armazena tem- 
porariamente os valores das variáveis e expressões que está 
manipulando, setando a flag em 40AFH para indicar o tipo de 
material com que está trabalhando. 
Vetor da mensagem READY. O interpretador BASIC passa por aqui 
imediatamente antes de imprimir READY. 





Figura 2 


100 DEFINTA-ZEFORK=Á [DIFFORK=ITOBCENLS CX) E SQUNDX EL «ti, XE NEXT ENEX 1 
110 READX, TELFYCOTHENSIO 
120 DRAUCSS, 47) T0CK, YO SETE 
DoRESETEGSETAX, VºEGOTOLLA 
130 FORX=0TOZBRDEAWLGB, 47) TOCX, 40), BETE SOUNDAS, Ai: DRAWCGR, A7INVOC 
1510), RESETISETOX, 10): NEXT “ 

140 FORX=1TOZOR INVERSEGTOIP, 64TOL OI, LEBTOLGZ, LPATORZA E GOLINDI DO, O 
ENEXTEIY=A 

150 FORX=1Í TOLQFSCROLLHEGOSUBPYO NEXT 

170 X=X=12FORY=4 TORASTEP2EGUROLIASSCROLLA E YEY+HS EGOSUBYPOEGOGURGPO 
EY=Y-LINEXIRY=Y- 
175 FORX=9TOQSTE 
180 FORY=24TOLSTEP-: 
2ENEXT 

190 FORM=LIOLOTZREADA, CEDRAWLGIS, 47) TOCA, CD, SETESOUNDRND CIO), RNDCIO 
PEDRAWC GI, 47) TOCA, (O), RESETISET(A, CD) 1GOSUBPPOENEXTIRESTORELS GGO DOT 
0190 

P9A INVERBEXHGAAY TOXEGALIDAT, XRGAGAY TOXNGILLOIAY XMS RB TON 
6AHLGTAY, XEGAHA POA YTOXHGA EIA + YE GOUNDO O, 203 RETURN 

1000 DATALL,0,10,0,9,.0,8,0,7,0,6,0,D,0, 4,013, 0,2,0,1,0,0,0, 0, 1,1, 
1,0,2,1,2,0,3,1,3,0,4,1,4,2,4,3,4,4,4,0,4,6,4,7,4,81,4,9,4,10,4,11 
14,11,5,10,5,141,6,10,6,114,7,10,7,11,8,190,80,9,8,8,8,7,8, 68,558, 4, 
8,3,8,2,8,1,8,0,8 

1010 DATA R2,0,21,0,21,1,20,1,25,3, 04,3, 23, IO, LB, 20, 19,3, 
18,3,17,3,16,3,16,4,17,4,16,0,17,5,18,5,19, 5, 20,5,24, Do 16, 6,47,6, 
16,7,17,7,16,8,17,8,18,8,19,8,20,8,21,8,22,8,83,0),24,8,25,8 

1020 DATA 30,3,31,3,32,3,93,3,34,3,35,3,36,3, 973,38, 3, IP, IPA, 
38,4,39,8,98,5,90,4,31,4,30,5,31,5,92,8,33,5,34 8,36, 36,0,]7, 54 
30,6,31,6,30,7,31,7,30,8,31,8,96,6,97,6,97,7,38,7,38,8,39,8 

1030 DATA 54,3,53,3,52,3,51,3,50,3,49,3,48,3,47,3,46, 0, 45,3,44,3, 
44,4,45,4,44,5,45,5,44,60,45,6,44,7,45,7, 44,8, 80,8,00, 6,51 6, Vl,6o 
53,6,54,6,4,7,93,7,54,8,53,8,52,8,91,8,50,8,49,8,48,0,47,8,46,8 
1040 DATA 59,3,60,3,61,3,62,3,63,3,64,3,6),4,602,4,61, 0,62, 0, 61,6, 
62,6.61,7 60,709, 8,60,8,61,8,62,8,6),8, 64,8 

1050 DATA 69,3,70,3,71,3,72,3,73,3,74,3,70,3,76, 347713, 78, 3,67,4, 
70,4,69,5,70,5,609,6,70,60,69,7,70,7,609,8,70,8,78,4,77,4, 78,077 nã 
78,6,77,6,78,7,77,7,78,8,77,8,76,8,75,8,74,8,73,8,72,8,74,6,-4,-4 
1060 DATAS, 20,9, 20,10,20,2,20,4,00,1,20,0,200,3,20,6,20,7,200, E io 


SQUNDR ND CIO), RND CO) EDRAWCEA, AZ) VOC, 1 








ROLA AE GOSUB9GOE NEXT Xp 
CROLLES SCROLL Y EYE GOSUBPDOZGOGBUBPPOR Y=Y+ 











Figura 3 - DEMO! |BAS 
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CLS 

FOR X=47 TO O STER =1 

DEAL CS, AD TOCO, XD, SET 

NEXT x 

FOR Xx=4 TO 127 

DRAW 63, 47ITOCX, O), SET 

NEXT x 

FOR x=1 10 47 

DRAW( 6%, 47)TOC427,X), SET 

NEXT x 

à FORK=1 TOGO NEXT 

FOR x=42 TO O STEP -4 

DRA CS3, 47) TOCL27, XD, RESET 

NEXT x 

FOR X=íixa VO O STER -1 

DRAUC SG, 47) TOCK, 0) RESET 
So NEXT x 

FOR X=1 TO 47 

DRAWCGI,4AZITOCO, X) RESET 

NEXT x 

FORK=1TOSBOENEXTEGOTOL LO 


Figura 4 — DEMO? /BAS 


DRAW(X1,Y1) TO (X2,Y2), SET: dese- 

nha uma linha reta do ponto(X1,Y1) até 
o ponto(X2,Y2), variando Xl e X2, de O a 
127, e Y1l e Y2, de O a 47. Se for escrito 
RESET ao invés de SET, a linha será apagada 
ao invés de acesa. A rotina usada neste progra- 
ma, para unir dois pontos na tela, foi ligeira- 
mente modificada a partir da desenvolvida 
originalmente por Hardin Brothers, na revista 
80 Micro (de setembro de 1985). 
. SCROLL X: este comando movimenta 
toda a tela de acordo com o valor da flag 
Xíque varia de O a 15), Seo bit O de X esti- 
ver setado(X=1), o comando moverá a tela 
uma coluna para a direita; se o bit | estiver se- 
tado (X=2),0 comando moverá a tela uma co- 
luna para a esquerda; se o bit 2 estiver seta- 
do(X=4), o comando 'moverá a tela uma linha 
para cima; e se o bit 3 estiver setado(X =8), o 
comando moverá a" tela uma linha para baixo. 
Valores intermediários até 15 movê-la-ão 
diagonalmente. 

RESTORE X: este comando faz com que 
o próximo valor lido pelo comando READ 
seja o do comando DATA da linha X. O valor 
de X deve ser um número de linha existente 
€ não pode ser uma variável. Se a linha X não 
contiver um comando DATA, a mais próxima 
linha de maior número com um comando 
DATA indicará a leitura seguinte do comando 
READ. A rotina original do comando RES- 
TORE X foi feita por Hardin Brothers e publi- 
cada na revista 80 Micro (de junho de 1983). 

Todos os comandos acima aceitam expres- 
sões além de variáveis e números, com exce- 
ção de UPC(X$) e SWAP que exigem variáveis 
string e de RESTORE X, que exige um nú-, 
megyo de linha. Assim, formatos como: 


DRAW (15,X*4) TO (SIN(X)*30+20,COS(X)*20+10), SET 
CLS(MIDS(X5,Y,1)) CLS(Xº(SQR(Yv))) 

INVERSE INTÍU*V)/2 TO INT(INT(VeU)/2-INT(WeK)/2) 
SOUND X,ABS(X) SCROLL N/4 

LOCATE RND(16)-1, RND(64)-1 


são perfeitamente legais, desde que as variá- 
veis não ultrapassem o valor máximo permiti- 
do(caso em ae o computador indicará um 
erro tipo ILLEGAL FUNCTION CALL). 


OBSERVAÇÕES FINAIS 


Eu sugiro ao futuro usuário do SBASIC 
que, para facilitar a sua tarefa, escreva um ar- 
quivo JCL que inicialize o SBASIC automati- 
camente, Para fazê-lo, entre no BASIC nor- 
mal e digite: OPEN“I", | “SBASIC/JCL”: 
PRINT 1,“LOAD NCOMS/CMD":PRINT & 
1,ºBASIC”:PRINT &º 1,ºDEFUSR=&HFBCO 
:S=USR(0):NEW”:CLOSE. Depois disso, bas- 
tará escrever DO SBASIC/JCL no DOS REA- 
DY, e você logo estará no SBASIC. 

Junto com o programa NCOMS/CMD vêm 
cinco programinhas em BASIC, numerados de 
DEMO! /BAS(figura 3) até DEMOS /BAS( fi- 
gura 7), que demonstram as novas e interessan- 





tes possibilidades dos novos comandos im- » 


plementados. Eu espero que vocês me descul- 
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NOVOS COMANDOS DO BASIC 





a REM d06% DEMOS Br!s 
y CLS 
10 FORN=.GOLIDS. PUGTEP O 
45) SET SG GETCAI+HA ARCOS CND Dutritosi ENA 
, aw NEXT 
E BSTOTIDO, AM) BET 45 U=68F=y 
00 FORN=S GOA TOA. PBTER 4 
80 DRAUCSI, DUITOCSI+GIRCOS CND DADAS INCNHO GET 
SOUND 100,50 se LEPOINTIZI, 16) THENF == 1 Eolh bo 


SOUND GO, 100 bit DRAWCGE, 


RADAR UM ACESSORLO DO SAL LL dum 


CLSSDRANCZ, 2) TO(IOS RD, BETE DRAWCR, FARA TIO AA ed 
DRAWCÍ TOCA, 45) ,8ETIDRAW CE py 
DRAWCÍZZ,R)TO(ÍZ7, AG), SETE 
X=B2Y=302Xi=1zYá= ae 
LOCATE X, Ya PRINT 

o IF X>ík OR xeZ THEN Xi=-Xis 

7 IF Yo2464 OR YVC3 THEN Yi==rá 5 





PRI TOCHIAGECOSEND, PR BisGINCNIO, RESET 


Fok Koi 10 598 NEXT 

53 AB=INKEY BS TI Abu ELSE 
LOCATE X,Y3 PRINTS “s 
X=x+Xiz V=1+74s GOTO 140 


Figura 5 — DEMOS [BAS 


10 CLS 

20 FOR Xx=0 TO 127 

30 DRAW(X,O)TOCI27-X, 47), SET 
40 INVERSE 

50 SOUND 127-x,50 

60 NEXT X 

70 FOR X=46 TO 14 STEP —í 

BO DRAWCO,XITOCÁGZ, 47X), SET 
90 INVERSE 

100 SOUND 47X, BO 

110 NEXTX 

120 G0T0420 


Figura 6 — DEMOS /BAS 





pm pela falta de modéstia do programa 
EMOI/BAS!1. 

Duas observações importantes: primeiro, 
esses novos comandos não funcionam se colo- 
cados imediatamente após um THEN ou um 
ELSE. Assim, se tiver de usá-los em um co- 
mando IF- THEN, ponha algum outro coman- 
do antes, ou pelo menos dois pontos(:). As 
linhas IF X=0 THEN F=1:; SOUND 35,35 
ou IF X=0 THEN: SOUND 35,35 funcionam 

rfcitamente, mas IF X=0 THEN SOUND 
5,35 produzirá uma mensagem de erro. Em 
segundo lugar, não tente colocar uma variá- 


ei B6 FC 22 04 40 21 77 FC ES 26 AD 4i 22 78 FC 
Ei 22 AD 41 3E C3 32 ACAM 21 00 FC 22 


CE FF 


IE ASECABIDIL THEN Sb=A6 


09 22 AO 40 28 22 EB 40 JA 54 00 30 C 


47 AFETHE NUOSUB AVOELSERORK=1T0102NEXI 


HO NEXT 

PO GOTOSA 

100 SET(7 3,15) 
114 RETURN 





Ie TPi=aTHENF=QECesERESETZS, 1H) 





Figura 7 - DEMOS /BAS 


vel string no lugar do SET ou RESET do co- 
mando DRAW; linha A$='“'RESET":DRAW 


(10,10) TO (127,30),A$ produzirá uma men- 


sagem de erro. 
Outra coisa: se o seu computador não 
Basa cê- -cedilha, delete as linhas 2450 e 
as pois elas não servirão para nada, 

Se você estiver interessado em criar 
novos comandos, lá vai uma dica: enquanto 
estiver checando o comando no buffer para 
onde HL aponta, não modifique nenhum re- 
gistrador, exceto AF, Algumas outras rotinas 
da ROM que usam a instrução RST 10H po- 
dem esperar que determinados registradores 
contenham certos valores. Tome também o 
cuidado de verificar qualquer erro possível: 
sintaxe, falta de um ou mais parâmetros, pa- 
râmetro ande demais. .., etc., se não o 
programador poderia fazer algo que congelas- 
se o computador(por exemplo, ele poderia, 
sem querer, tentar inverter a memória do te- 
clado, pensando que ainda está no vídeo). E, 
antes de pular para o endereço 1D78H, tenha 
certeza de que HL está apontando exatamente 
para o último caráter do seu comando. Assim, 
O interpretador do BASIC incrementará HL 
e pegará o próximo caráter(: ou o byte 00H), 
que indica fim dg comando; após o que ele 


irá interpretar o comando seguinte. 

Mais uma coisa: lembre-se de que o pro- 
grama NCOMS/CMD ocupa a memória a 
partir do endereço OFCO1H. Se você estiver 
usando um programa BASIC que dê pokes 
para uma rotina em linguagem de máquina 
nessa área, os novos comandos não funciona- 
rão. Para digitar o programa, entre com os 
códigos em Assembler da listagem NCOMS/ 
CMD e depois passe-os para o disco com um 
dos comandos abaixo: 

Para NEWDOS: CMD “DUMP NCOMS/ 
CMD,8&HFBCO,&HFF63 ;SHFBCO” 

Para DOS 500: CMD'* “IT”, “DUMP NCOMS/ 
EAST =FBCO JEND=FF63 3TRA=FBC 

y 

Se você tiver qualquer sugestão ou pergun- 
ta, escreva-me, pois terei o maior prazer em 
ajudá-lo. Meu nome e endereço são: Sérgio 
Santa Cruz - Rua José Hipólito Cardoso, 225 - 
Boa Viagem - Recife - Pernambuco, CEP 
an E Boa sorte com seus novos coman- 

os! 


Sérgio Santa Cruz é programador autodidata 
de BASIC e Assembler Z80. Ele é usuário de 
um DGT-100 com drive há três anos. 


09 43 ZE FE 20 20 do JE BO 17 30 08 17 38 05 2F 


iF 37 4F 


77 3 àB ZA B3 do EG Ei ZE FE 20 23 28 


Co C3 EA FC D7 CA EA FC CF 28 CD 37 23 CF 29 ES 


Bi 49 01 
Ca 2í 


B5 46 2? 
ot 00 A 


3A AF R FE 03 20 10 CA «í 4í 


CI ME 23 44 DA Di 


B3 40 18 09 CD 7F OA 7C B7 Co ah 1E 70 
ce 20 4) 77 23 CR 74 28 FA CO 43 FD ES 


JE 02 de 33 FD 97 JE 35 FD CO 00 00 dO dO 04 dO 
dO DO 00 DO 00 00 00 00 DO 00 53 42 41 53 49 43 
20 4F 4B OD 00 ES CÍ oF 00 18 04 ES ci TF 00 DF 
DA 4A 1E Ei C9 ES D? 28 04 FE DS 20 F9 Eí ok Fi 
C3 78 10 Ei 23 C9 3E Gb 18 02 JE C6 32 72 FC DS 
ES CS 7A 2E FF 20 Dó 09 30 FB 
06 cs 10 FD 50 CB 3B LE 00 1Y 

í7 

4) 


D7 FE 44 C2 43 FD Di 23 CF 54 CF 45 Cb 02 CR CF 
oC ES di OF 00 DF DA 4A 1E Ei DS CD 02 2B E3 dó 
dá 29 10 FD ES ci JF 00 DF DA 4h í 
3€ 1% 22 20 40 03 49 FD CD 25 
97 CF 28 FO dí Oi FC CD 02 oR 
73 4 CD 02 26 CF 29 CD 45 FC 
28 CD 02 28 CF 20 CD 4b FC FD 73 03 CD 62 26 CF 
é9 CD 13 FCFD 73 02 CF 20 ES 21 JA FC FE 83 28 
CD 00 5d 08 FE Bo C2 97 19 24 36 FL DZ ACFEFD So 00 FD à 
e 3d dE 01 FD bo 02 FD GE 03 DS 70 co Oi d2 30 04 ED 
4 44 26 FF 47 PD CE 01 93 90 04 ED 44 CÊ FF dr sí 
aB 273 00 00 Bê 38 03 48 47 EB FD 74 05 FD 72 06 FD 73 
e8 
CD 


87 EB ví 72 FC 86 77 EB ZE 
80 CB Ca Cí Ei Dí C9 CD 00 
“à DA FC C9 28 dA E3 7D FE SB 
C2 78 4D D7 FE 99 CA 52 FF FE 
: 4 CA A4 FD FE 55 
29 FC ZE FE 4F 
CF 50 CD 00 26 CD F PARAN] 
OA E3 do 03 ZE 08 iA 77 08 12 23 
E 2C 23 28 DO 28 28 C3 78 áD CD 
CF 28 CD OD 26 CF 29 CD F4 dA 
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APPLE ti (EM DISCO! 
MANUAIS ORIGINAIS 
40005 CONSAGRADOS — CZ$ 130,00 


Pora code consagrado pedido ascolha outro grátis! 


ARALABETA — Fontórias aventuro emma 

APPLE FROGOER — Lim jogo pera tester mia retiguos 
ARCO - Aventura de estretógia 4 ação (fdac) 
ASTEROIDE - Desrua v4 esteróias nó capaço 

ATARI PACMAN — Cinco do fiperema 

AUTO BAI — Um poço inc fi de ação ca renaa 
BANOTE  engdos emecsis querem roviáio. 
BATTLE FOR NORMANDY - Desemberque na Nos mancia. 
MRTM OS THE PHOENIX - Guerreros é Magos sem luta 
SOLO - Os ranques sestrunão o 

BUG ATTACK — Betina jogo smpacia!. Não perco! 
CARTELS & CUTHADATS - Simutação sempreme iai 
CASSINO — Casmno completo para ma divernto 
OHECKEAS - Fansántico jogo de dama. 
CONGLOMERATE COLLIDE — Simulação empresario! 


CONGO SONGO 

COS & ROBBEAS — Permeguição no labirinto 
DEADLINE — tniriganta aventura posicial 

DEFENDER — Destrua ms naves inimigas |oyetick | 
DONKEY KONG — Um clássica do Hiparam. 
DRAGON'S EYE — Aventura com desenhos animados. 
EGOS IT - Um derertido ataque com Ovos, 

EPIDEMIC — Luta contra e terrivel apidems. 

ESCAPE FROM RUGSTEIN — Fuja de prisão 
EVOLUTION — Um rogo para quam tam nervos foras 
FACE MACKER — Construa rostos animados 

FAMILY ROBINSON — Ajude 08 Robinson no nsutrágio 
FIFTY MISSION CRUSH — Pilote um bormieraairo. 

FLY WARS - Um jugo de ação ininterrupta 
FOOTBALL - Jogue futebol ontra o micra 

GAMMON — Exoulanta jogo de gemido pars espera 
GERMANY TRES — Simulação de guerra na Ajemenha 


AREESRASEGCRASSSASOSERAA 


shtEs 


MITOMIKERS GALAXY — Fração amores 
HOUSE OF UBMER — Merprilhos svantars animada 


+0DE 

LUNAR LEEPERS — Meniigo vom mimmanto na Luma 
MANNOR — Porcos na csdudo snatra IMAG) 
MARAUDER — invada o inquistante planeta ms puder 
MINOTAUR — Mate 3 mingtaçro no labirinto fetal 


ME PAC Iporema 
rele BY THE DOZEN — Super aventura na ioio 
NIGHT MISSION — Missão de combate sm HA 
NORAD — Agão am guerra nuclear. 

DISSE Y — Desastrs o megrêdo de ilha misterios 
OLO IRONSIDES — Uma excelente batalha naval 
OPERATION APOCALYPSE — Perigo minado da 1! Guerra 
PANICO — Extormino ss aranhas emsasiras, 

PINBALL CONSTRUCTOR — Cria sm; ftiperuma Ljoy! 
PITFALA IH = Aventura net cavernas mimneriosas. 
RAILS WEST — Construa a ferrovia no Velha Oeste 
RENDE-VOUZ — Prepare-se para entrar am órbita 
RINGS OF SATURN — Estravógia mapacias 

ROACH MOTEL — Entronta ns baratas dese honel 


STARCROSS — e ficção estatar 

STELLAR TREK — Super verdão do Gueto nas Esmetos. 
TEMPLE OF APSMAI 1! - Moves meuntura. 

TME CAVES OF OLYMPUS — Aventura futura am mA 
TME STANDING STONE! mota) 


THREE MILE ISLAND — 

TMRESMOLO — Empoigente bessiha no ba = 
TRACK ATTACK — Eracionerma jágo a 

TUBE WAY — Guerra na espaço trismentioras 
TUBE WAY 1! — Guerra submarina. 

U-BOAT — Estratégia mulitar com momacino 
WAR IN RUSSIA — Campanha da Múmia ne il Guerra 
WAY OUT — Sotisticada iabirento tridimenstonal 
ZAXXON — Combate na plaaforma evtalar 
ZOAK HUNDER EMPIRE) — Incrivel aventura. 
ZORK 2 (THE WIZARD! — Combeta o Mago. 
JORK J1THE MASTER] — Terceiro da trilogia 


Vi pipes dormir 


JOGOS SENIOR - CZS 150,00 


AMO! BELOW THE ROOT — Aventuas amemada imporcihat 

MOST RABUL SPY — Uma tenténica ventoro paiuciai 

ARTO MICROBE — Entro co corpo homens + cure 4 doença 

AJOOS SARGON H!! — Nova versão do tamos BARGON 

AJD1I SEVENCITIES OF GOLO — Aventura em MAG IS4Kb + joy) 
AO] SUMMER GAMES - Obmpada em ntta resolução 184KD) 
AJOIO THE MASK OF THE SUN - Aventura palicai sm HAG 
MAJOR! ULTIMA — Avantuca com desenhos animados. 

AJODO WILAROAY - Sotuticada aventura na idade Média 

AJOM) XYPHUS — Fantómics avermura animada 


COMO COMPRAR PROGRAMAS: Faça seu pedido por carta, relacionando o código dos produtos, quantidades, valor unitário e total 
Ao terminar feche um total geral. Nossos 


* Marca registrada Sinclair Research Ltd, 


HRREE 


HEBEEE 


BEE 


1 MORAR — Fantástico curso de 


MAIS DE 50 


PROGRAMAS 
INEDITOS à 


PARA VOCÊ 


ESCOLHER, 









x A máquina. 
KDALA ILLUSTRATOR — Gerador de desenhos. 
LIPESAVER — Para recuperar disquetes com problemas, 
MAILLING LIST DE Emote Exosente maia direns. 

MALA DIRETA — Totalmente em portuguia. 


a 
VISIDEX é VISIPLOT 
de dedos qusável 


APLICATIVOS / UTILITÁRIOS — Senior - CZ$ 450,00 


Aroos 
AAOOO 


AUTOCOOE — Gerador ds aplicativos pers DEASE || 
Complisdor BABIC, 


— HOT BIT / EXPERT (EM FITA) 


Para cada programa 
Modo Int 
JOGOS INÉDIT 


pedido secolhe um Jogo Consagrado grátia! 


— CZS 100,00 
COLUMBIA — Versão do clássico do vin AMA 


MODS CORRIDA MALUCA — Labirinto mai, 


Muda 


DALAGA — Super veraão do GALÁTICA - PLIPER 
espicado nucias 


Sor o Aventura demos de 

SURPRDAS Pt mada a 
— ams. 

OLIMPIADAS t! — Competições olímpicas 


JOGOS CONSAGRADOS - CZ$ 80,00 


mo! 
Moo 
mos 
tdo! 

1 
MIO 
Moro 
Ms 


Myo12 
Mao! 


JO BOMBE RMAM - Elimine é monstro 

ANTARTIC ADVENTURE — Engiors o mortmente prmdo 
BEAN RAIDER - Terrível ataque aiienígena 

COSMOS - Entrente perigosos numegos especies 
DECATHLON — Dumntios Olímpica. 

DOG FIGHTER — Destrua os sides mimugos. 

FLIOMT SIMULATOR — Simulador de vb num Boing 737 
HAUNTED MOUSE — Escsis 0 prédio mal amormbrado. 
HERO — Raiva 08 mineiros. 

HOT SMOE — Emocionante aventurs muciate 

LE MANS - Corrida de carros. 

MOON PATROL — Patrulhe a mapor! ícia de lua, 
PITEALL Il — Bimitar so do ATARI. 

POLAR STAR — Batatha cósmica am POLAR |V, 30. 
PROJECT A — Sensacsonais tutas da Kung Fu. 
PYRAMID — Mistério a perigo na Pirâmido. 

RIVER RAID — Bupere os obstáculos no rio. 

SPORTS | — Sensacionais competições 


MIDOO SPORTS | — Mais desatios seportivas. 


MOU? 
MOO3 
MOO I 
MIOIE 
mMIoIA 
MuOOs 
MI0IB 


SUPER COBRA — Defende seu helicópisro. 


ZX SPECTRUM 
QFERTA 
Ea o poe 


NA COMPRA PE 
BA QUER 


CORAIS UR 


** Marca registrada Microdigital Eletrônico Ltda. 


O - 
ANA, EEcoLHA 
RATIS 





TK 90X — ZX SPECTRUM (EM FITA) 
OFERTA ACIMA VÁLIDA PARA TODOS 06 PROGRAMAS. 


ARMAGEODON - Fontúsico versão do MISBEL COMANDO 
BEAKY AND THE EGOS — Meto 04 indrfos de ovas. 
607 SEAR BOVVER — Ajude o uno é carregar o caminhão 
— Cometa os inimigas da guínuia ALFA 


sbbtsatbtchacêBisdiêê 


Bits 


BEBEBERESE 


FEBRE 


PHEENIX — Demrus 04 nor iveis pésmmros. 
PITEALL 7 — Outro aventura de Harry Prrtait 


ês 


PLANETOIDS — Destrua 04 meteoros. 

som POKER - per doi fg ser oadeirderçao 
RAID OVER MOSCOW — irunda Moscou. 
ROCCO — Seja um invencível bonsador 
ROULETTE — Apos ne role 5 vença ms puder. 
AUPERT & TOYMAKERS — Love O urso upar avá a fuma, 


BESESESARAS 


HERO — Torne-se um herói otimo. 
SPY HUNTER — Destrus 04 veiculos inimigos. 
STOF THE EXPREBS — Pare o trem se puder 
SUPER PACMAN — Entrente sia cemíio. 
THE BIRDS & THE BEES — Conaura a sbaiha. 


THE UNDE RIWURLDE — Resgats O sssouro do subeoio 
ua MARLOGK OF FIRET — Um terrível intárinto. 


BEBsEcêEEs 


JOGOS SPECIAL SYSTEMS 
(programas « manuais em portuguls) — CZ$ 70,00 
TE RÓIDES - Cuímica emocionante em nove vento. 


81007 
001 ROLAS Ação msm na com s0M 4 novas nptas 
40) BIMULADO — Em nova versão aporteigueas 


APLICATIVOS SPECIAL SYSTEMS 
(totalmente am língua portuguêsa) — CZ$ 100,00 


SAO0! BANCO DE DADOS — Versão especial 








; LE E 
+ PEROLAS 


RraRadE 
| 
' 


BiRitsiê 


Bajo um heróico 
FLAG — Seja um corredor da Fórmuia 1 
008 — Pague 04 ovos mem mer bicado, 
Seja um mtarsfado cosinhero 
DECATHLON 1 — Primeira cia do previa olimploos. 
dio da olimplada, 


pinguin no Ártico. 


or Benvars srnção (DURO NA QUEDA), 
FIOMTER PILOT — Pilote um moderno avião de combars. 


FREO — Aju o e unir da tumba 
FRENZY — (nte idos Inimigos. 

PULL a una Encslonro ee 3 aa 
QULRMAN Ms mação am 

MARRIER ANTA Proto um BEM à MARRiaA 


PRAASARRRESGERRESASE 
i 


BRBBBRaEERE 


MIM -BLE — Gaja animo + dusativa a bormim 
PENETRATOR - Penetra com na nave ne enerna. 


mms bb pt persa 
aa 
Pam o o a 
RIVER RAID — repre 


SABRE WULF — Uss o sbre pars a defender de morta, 
CUBA DIVE — no ma lundo 
BIMULADOR DE VÔO — versão 

BIR LANCELOT — Ajude-o 8 enfrentar ou perigos, 
BON OF BLAGOER — Atrovento todos 04 perigos. 
PAGE RAIDERS - Agão mortai no capaço. 

SPECIAL DELIVERY — Botruguno ms protênço 

ETRIP POKER — Dama é 


Esstsieiê 


AT SEA — Não dons o navio atundar 


UTILITÁRIOS / APLICATIVOS INÉDITOS — CZ$ 100,00 


z Oi ME LER — Reside na topo de RAM 

Foo DI! MB LER || — Mosada mo BABIC. 

em FULL COMPILER — Super compilador BABIC 
SUPER COMPILER — Compilador BASIC qom recursos. 


UTILITÁRIOS/APLICATIVOS CONSAGRADOS - CZ$ 70,00 


BASIC ds tos portormunas 
cera ammsrmeotvar pr opor 
BAOOS VU-CALC — A melhor pienítha da altcuios. 
SADO? VU -FILE — Banco da dutos muitituncionai 


MINCLAIR COMPATÍVEIS 


” BOPTWARE 
O BEDEFINIDOR DE CARACTERES 
& BUPRIMENTOS 


Bolicite noso estálogo 





por produto. 


preços para PROGRAMAS já incluem as despesas postais. Não se esqueça de identificar-se e ao local para re- 


messa. Anexe cheque nominal à ATI EDITORA LTDA. Av. Pres. Wilson, 165 grupo 1210 - Centro - CEP 20.030 - Rio de Janeiro - RJ. Seu pedido será 
prontamente atendido logo após a liberação pela rede bancária do valor correspondente. 
Gravações garantidas por 30 dias a partir da data de atendimento do pedido quanto a defeitos de fabricação. 


Pedidos 
Zx SPE 


es linhes APPLE, MSX e SINCLAIR, somente serão atendidos quando colocados por correio. 
RUM, neste caso com 20% de desconto sobre o preço listado. 


Em nosss loja atendemos somente à linha 


As ofertas aqui contidas somente são válidas pera pedidos colocados por correio, incluindo-se nesta limitação a linha ZX SPECTRUM. 





MÁTICA CORRESPONDÊNCIA: PRAIA DE ICARAfÍ,211/ Lj. 03 — NITERÓI — RJ — CEP 24.230 — TEL.: (021) 717-1 


700 


sa 


TECNOLOGIA INFORMÁTICA 


FORMAMOS PROFISSIONAIS 
ATUALIZADOS COM AS 
MELHORES TÉCNICAS EM: 





* ANÁLISE E PROJETO DE SISTEMAS 

e ORG. SISTEMAS & MÉTODOS 

* PROGRAMAÇÃO DE COMPUTADOR 
(COBOL) 

e DIGITAÇÃO 





MICROINFORMÁTICA 
* LINGUAGENS: BASIC, MUMPS 
e SISTEMAS OPERACIONAIS: 
CPM, MS-DOS 
PLANILHAS 


e ELETRÔNICAS: 

LOTUS 1,2,3, MULTIPLAN 

e BANCO DE DADOS: 
DBASE |l, DBASE Ill 

e PROCESSADOR DE TEXTO: 
WORDSTAR 


SUPORTE EDUCACIONAL T 


e Centro de Computação e Central de Digitação e Biblioteca INFORMÁTICA 
— Minicomputador Multusuário — Laboratório de Microcomputadores Av. Rio Branco, 173 Sobreloja 
— Terminais ligados a equipamento de grande porte Tel.: 262-9364 


Com a Centraldata 
a A entrega éimediata |. 


NÃO PONHA EM RISCO O SEU COMPUTADOR, ADQUIRINDO 
PRODUTOS DE QUALIDADE CONSAGRADA. 


MÍDIA MAGNÉTICA e FITAS p/impressoras em geral, marca 


CARBOFITAS, com garantia total contra defeitos 
e Disketes e fitas magnéticas, marca DATALIFE de fabricação 
VERBATIM, com 5 (cinco) anos de garantia e Etiquetas PIMACO - PIMATAB 
e Discos magnéticos, marca IMPELCO, com e Formulários contínuos e pastas 
1 (um) ano de garantia * Arquivos p /disketes com capacidade para 
e Disketes de 5 1/4" para limpeza do cabeçote de 10 (dez) ou 100 (cem) disketes 


leitura e/ou gravação EEE 
CONDIÇÕES ESPECIAIS 
PARA REVENDEDORES 
FEEDS Aa, 


Suprimento é coisa séria 


Distribuidor Autorizado: 
C CENTRALDATA CARBOFITAS . PIMACO » VERBATIM 
m. 6 Repr Av. Presidente Vargas, 482 - Gr. 
— > Tel.: KS (021) 253-1120 - Telex (021) 34318 
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Força 





Márcio José de Carvalho 


Elaborado para micros compatíveis com o ZX Spectrum, 
Força é um jogo de ação que vem dividido em duas fases: na, 
primeira, seu canhão-laser defenderá a Terra de naves invaso- 


Caracteres gráficos utilizados: 
Linha 5SO- “BGD” 
Linha 182 —- “A” Inverse de “ “ec” 


ras, sendo que no alto da tela são mostrados a disponibilidade 
de munição (Força) e o placar. Somente quando se esgotam as 
reservas do canhão é que se passa à segunda fase. 

Devido ao elevado grau de periculosidade, a força laser é 
afmazenada em uma nave que aparecerá no alto e ao centro da 
tela. Dessa maneira, você deverá subir com sua arma, acoplan- 
do-a no meio da nave-mãe para o reabastecimento. Se conse- 
guir, o jogo continua, voltando à fase inicial. Caso contrário, 
você perde uma vida. 


DIGITAÇÃO 


Inicie a digitação pelo bloco que vai da linha 9000 a 9200, 
para redefinição de caracteres. Isto feito, digite GOTO 9000, 
que facilitará a digitação do restante do programa. 


nem 
serteersscenasgasagaes ' 
IGÍ EA PCR 

LET LeINT 
ur 1h 


BRINE ar 


gr Cec-.3 

É cc.i OR mca OR INT 
18:::4 08 INT ( (PEÊs 
é OR INT (IPRER 1909317 1 
Paso! ETEN SÉTO 1008 

> ap 
OS GEnm ar so se 
ar 10 às er iia 


pe gde Dos nos 38,00 
«Ca INT (END6JO) mExT ne 
i y 

é 


AT medos 


me mms msmo 


eee. 
us COMME na 
Tres pipaaps pepepemeçoo pe 


(IPEE 
p+.3i 


Ch 
Pare à 
PAPER «4 


= 29% 


siEEs 
BND oi 


18 
EnDes/ 1 SOumi 
«Ps 14 
CET njon LET ceoá 
ET rrjexs 
AT ni xs ar. 


InnEvg. 5 ANO « &9 TmEN 
.. + 30 
NKEvO= 3º ANO «18 TEN i 
a ie 
INFEv6= O" TMEN GOTO a00 1500 
PRINT AT 21,x-1 
LET xxlaxx LET nleh 


LET hah+l 
ET xxaxxew IP «x>88 THEN 


1 
POR n=i T)& 
18,9 SOUND 6.7 mex 
a 
eis ar 16.7. Ia O, GRIOM 
acOPL AGEM PERFEITA 
g9to 1900 
GÓSUB 2800 LET xxex-1 
Por Ns1 TO 7 INK N +) 1] 
OP N=i TO ào sOUMO g! 
NEXT N: SOUNO .8,1 SOUNO 
PRINT ET 16,6; INK O, BRIGN 
VBUA ACOPLAGEM FALHOU! 
JET UIDA=NVIDA-1 IP UIDASO 
soe 
Ns1 TO 300 NEYT w 
«2 


cant ar 3 


4 


x<i TMEN LET um 
s20 TEN PRINT AT 19,0 


200 GOTO 108 
ar é à1 PAPER 4 
sv Parte 4 


Tmên GOTO 49 
In» O BORDER 1 


a! 
a 
s 
o 
o 
e 
e 


eU 


NEXT o 
«+B.70 10 DRA 


PLe FOR Nsã? TO me 


as 
“ AT mel n-1 
-s 
TmEs LET M 
Uz0 TmEN GOTO 3090 
TMEN LET VTey OR N=i TO 20 PRINT AT NO 


THEN LET 


INSEvg: 8 IT eu 


INrEv6. 8" 
InkKEys='7 


H<19 THEN LET UUsuyyo, Da 
LET xaxsur 


IP no19 THEN LE 
LET Jusê 


(4 THEN LET xe4 
4 JF «:Z9 TMEN LET «cao 
LET memevu 


NEXT N 
O PETURN 
o her QeM FOR Zal TOS 
l he11 LET Go 

T mag LET 

nes” 7 pu 
& PRINT GT & 


Uvas 


THr 
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Linha 1002 — 


Linha 1166 - 


Linha 1168 — 
Linha 1170 — 
Linha 1172 — 
Linha 1174 — 


Inverse de “Doooo000B” e Inverse de “C*** 


=" As” 


Inverse da letra “O” 


Gráfico da tecla “3” e Inverse de “C” 
Gráfico da tecla “3” e Inverse de “A” 
“A” e gráficos da tecla 3" 
“B” e gráficos da tecla *'3” 





Márcio José de Carvalho é Administrador de Empresas e trabalha atua!- 
mente na THEMAG Engenharia L tda., Belém, PA. Programando em lin- 
quagem BASIC (TK90X), ete é um autodidata. 


10 n ara 


GETueN 


INVERSE 1 


4 Deca Rs 


AM DD m 
e Demo 


Dom 
” » 
ur 


o 
uses up 
o 


z»00zu 
Ze va 





"SOUND 
1 


181 € «ent 
tre. TMÉN G0 PR 
IP vs SOUND .3,-8 
D .3,-à Bgung 
SOUND ,3, [e] 
D 2,2 
6300 PLOT 100,50 GO 


64 s Gosus q 
169.56 Gcosus 
169.45 cosus 


PRINT AT 40 
PESAMES 


LOT 
Es 
PLOT 
eLOT 
BLor 
LO” 


DRAMçSa Ro alado? ace qragup 

oo PRI EVORO 0.0. “-ouanoo ay 

UM vOCE PODERA 
r ACOPLANDO s 

A NAVE wi NTR o DA E 

f AMIRALO SITUADA 


ni 

n O ALTO DA 

G PRINT AT 12, PARA DEFE 
SUA BASE...” 


PRINT TECLA 7 
TEÇLA € 

TECLA & 

TECLA É 

vocÊ 

TOQUE uma TE 

TMEN GOTO “Os 


ss 
POnE USA "a 


ee. 
.. 


PLOT 90 


440 4 


ass 


ema 


. es. 
sus ue o 


º parr 


BERTRANO Eua 
TRADUCAO E aí 
3 "MARCIO CAR 


SOUND 
.1,19 


11,19 5 
SOUND .d 
114 3 
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zx81 zx81 zx81 zx81 zx8 








BRITANIA 








Neste jogo, para a linha ZX81, um 
grupo de terroristas espalhou cinco bom- 
bas no navio inglês Britânia, e você, 
perito em desarmar artefatos explosivos, 
formado em engenharia bélica, foi o es- 
colhido para salvar a real embarcação 
inglesa do naufrágio. 

As bombas estão numeradas de 1 a 
5, sendo que o leitor deverá desarmá-las 
sem afundar o navio. Cada bomba pos- 
sui dez fios, distribuídos da seguinte 
maneira: 

2 fios-armadilhas — caso qualquer 
um deles seja cortado, a bomba explo- 
de. 

3 fios-ativos — para desarmar a bom- 
ba, é preciso cortar todos os três. 

1 fio-conjugador — sua função será 
explicada mais adiante. 

4 fios-neutros — não têm função. É 
indiferente cortá-los ou não. 

Inicialmente, você informa qual a 
bomba a ser trabalhada; em seguida apa- 
rece um painel com os dez fios da bom- 
ba, então você deve ir cortando aleato- 
riamente os fios. Ocorrendo uma das 
situações abaixo, o navio afundará: 

se a bomba nº 3 explodir; 

se a bomba nº 2 e qualquer outra 
bomba explodirem; 

se três bombas quaisquer explodi- 
rem. 


SCI 


SG GS MOMO O Ut ps 
“a 


TODOS SAR ENEMA AD 
9999199006 hS00NG+-fIm 


Dr60SN-NOoSa 
BDCUAMGS EGGNOVOD- MEO 


SG LISTS O GU CS Co O UM AM PICA Co a =p 


mrosomoss 


nUSArPrUdDRa 
9rovornNdoOrSo+sOrDOreMNODRa 


S0hoNM4S9666050h-rDMAGO JOR 
9619198 M60660"MhDO- PRO 
VONPrOPANUPOd-TUNS VO00TO4 
nonnhrochrS9990-rNMNNShoso- 
Se DAP DOGG GORDO Teca 


18 
oe 
ai 
ED 
Bo 
18 
z3 
os 
o» 
28 
o 
os 
oo 
da 
os 
153 
ES 
ED 
Es 
13 
vs 
SE 
oi 
ce 


PSvSLDM 
Cora 
sd 


Listagem 1 
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Henio de Araújo Bezerra e 
Jodrian Soares Amorim 


No início do jogo, as bombas 3, 4 e 
S são conjugadas, isto é, seus fios são 
iguais. Por exemplo: se o leitor traba- 
lhar na bomba nº 5 e, ao cortar o fio 
nº 2, ela explodir, então, o mesmo 
acontecerá com as bombas 3 e 4 quando 
este fio for cortado. São dois grupos de 
bombas: 1 e 2 (primeiro grupo) e 3, 4 
e 5 (segundo grupo). 

Esta situação de bombas conjugadas 
permanece até que você corte o fio que as 
une, o fio conjugador. Assim, todas as ou- 
tras do mesmo grupo terão seus fios renu- 
merados. Por exemplo, no caso anterior, 
se o fio nº 2 da bomba 5 fosse o con- 
jugador, as bombas 3 e 4 não seriam 
mais iguais à 5, porém, permaneceriam 
iguais entre si. Esta operação não afeta- 
“ria o primeiro grupo de bombas. Para 
que o jogador saiba que o fio conjuga- 

or foi cortado, aparecerá um aviso 
na tela. É o único caso em que se é 
avisado sobre a natureza do fio cortado. 

Durante o jogo, pode-se pedir um 
relatório a qualquer momento, teclan- 
do-se R. Se quiser desistir, tecle D. Um 
informante em terra firme conhece o 
número de um dos fios-armadilhas da 
bomba em que você está trabalhando; 
tecle A para entrar em contato com ele, 
você deve tentar subomá-lo, e ele, en- 


Po. 


é PRINT AT 
Bear 10,1 


,30."0 
7 PRINT AT 11, 
AT 11,30 12 ] su 


ER) “e 
Pe Ear q 10] 
30; "B'aT 48 ;4;"0 8; y 


AT 16,1; "]";AT 16,30, 
ta, 17,24;' 


A, DUAT 7, 
Mar 16,16;*BY J 





Bomba 


tão, perguntará pela quantia oferecida, 
podendo aceitar ou recusar. Caso ele 
aceite, você saberá um dos fios que ex- 
plodem aquela bomba. Ao ser suborna-- 
do, o informante perde o contato com 
você para não ser descoberto; desta for- 
ma, só se pode suborná-lo uma vez 
durante todo o jogo. Lembre-se que o 
suborno só é válido se o informante 
aceitar a quantia. Caso ele recuse, 
você pode fazer outras tentativas. Para 
facilitar, a pontuação é feita em dinhei- 
ro. 


DIGITAÇÃO 


Coloque o Micro Bug publicado por 
MS e, com o auxílio do comando E, crie 
uma linha REM de 200 caracteres. A 
seguir, com o comando M introduza 
(com todo o cuidado) os códigos hexa 
da listagem 1. 

Digite a parte em BASIC (listagem 2) 
e salve o programa em fita com a instru- 
ção GOTO 5200. 





Henio de Araújo Bezerra é estudante de En- 
genharia Elétrica na UFRN, trabalha no Setor 
de Computação de uma empresa de constru- 
ções e possui um Color 64. 

Jodrian Soares Amorim de Freitas é autodida- 
ta em computação, estuda Engenharia Quími- 
ca e possui um TK8B5. 


10 PRINT AT 
a 


ET =! 


"DO 


Pqesris 
fofo sto q fommo 


SDr Or OoOr 
-F 


MIM esa e rmas+s 
AAASTIAIAIIX 


roorrrrr 

mms mma 
-=u cu I< 
JaNDI D 
S r 

mv LE du 

Qou 
- = 


ENDOOBNHHODIGIZ]* 
e 
o] 


nesse uu 


a 


uma 
po 


4 
OsINT 
WEvVAL 

GOSUB VAL 


(RND+500) 


2000" 
2" 


Ci Co OO CD =) dd od DOR OU 2 E CD RO) e a qua 
vUnrodTJONroONoQUNGUGUS A-Ha y 





MICRO SISTEMAS, maio/86 


AT 5,0; TENTE SALU 
AR O COBRITANIA!”” DONAUERAGIO, 
"PARA CONSEGUIR ISSO VOC 
“DE-VE, DURANTE O JOGO, TECLAR 
SEQUISER UM RELATORIO, E SE O 
UISERADOUIRIR INFORMAÇÕES E E 3E 
QUI-SER DESISTIR.",,44422244041 
SORTE...” 
PRINT AT 15,0;U8( TO 32) 
IF INKEY$<>"" THEN GOTO 90 
LET Ug=USi2 TO )+US(I 
GOTO 85 
CLS 
LET o $ =" 
RINT AT 9,10; B“;AT 10,10 
ESiAT iLio;: “ 
INT BT 12,7;08( TO 10);AT 
Far E UA ";AT 12,12; 


4 PRINT AT 13,6;' PP em 
má: ;AT 14,3; "um OS( Vim 
95 PRINT AT 14,12; "ha AT 14,1 


5; 
96 PRINT AT 15,2; 
sz po AT a ã: 


PRINT AT 15,21; "E 
9 FOR J=1 TO 30 
NEXT 


SLOU 
Ecs AT 1,8; 


D$( TO ; RT 
vos t +58 21); SAT 18,6; 
TO 19); 

104 PRINT AT 13,8,* 


TOS, (PRINTUAT 18 (7 


24; 
“a 1RT Ís' 2s;"s" 

To- "Cano “USE jesia 
110 PRINT AT 21,0;U8(t TO 32) 
TI Ir INKEV SSI AS THEN GOTO 114 

LET V$=US(Z TO ) +US(I) 

3 GOTO 110 
CLS 


nD 


Pet O da DD 


E 

AÇA 

A$=0 THEN GOTO VAL * 
12; “EM QUE BOMBA 


+» 
ELRGRDO 


8 $ 
sas IF 5$="R' THEN GOSUB VAL “S 
eco” 

130 GOTO VAL '118'+17+x(CODE S$> 
=29 AND CODE 3$:=533 AND LEN 5$=1 
| +3882+/1Sg="D'") 

135 LET I=VAL 5 

140 IF Ag4Iic>" 

“IrO” 

142 FAST 

145 PRINT AT 10,0; UOCE JA TRA 
BALHOU NA BOMBS PO RE di ELA “,B$ 
(1) 

147 SLO 

150 FOR. Jz=1 TO 25 

155 NEXT JU 

160 CLs 

165 GOTO VAL "117 

170 IF Z<>VAL "or 

"185" 

17S LET O=VAL “2º 

130 GOSUE VAL “2000 
18S IF Z1I<>LAL “O! THEN GOTO 20 
1 

190 LET O=U4AL “a 

195 GCOSUB UAL "2000" 

200 LET ZI=UAL “1” 

201 IF I=1 OR I=2 THEN LET 0=1 
202 IF I=5 OR I=4 OR I=5 THEN L 
ET q=2 
20s Ls 
208 LET k 
215 LET x 

216 POKE 

220 SLOL 

E2s PRINT. 


5 
O" THEN GOTO VAL 


“THEN GOTO VAL 


- 
+271S9+(INKEY$="A" A =0) +3749+ 
(INKEY $="D") 

281 IF INKEY$='"" THEN GOTO 281 
282 IF INKEr$='5" THEN GOTO 295 
283 LET NLIN=NLIN+2+( INKEY$="6" 
)-2+* (INKEY $="7") 

284 IF NLIN=-1 THEN LET NLIN=19 
&8S IF NLIN=Z1 THEN LET NLIN=1 





Listagem 2 


MICRO SISTEMAS, maio/8B6 


“POKE 16674 ,NLIN 

RAND USR 16631 

GoTo 2so 

RAND 

[=] PRINT AT (PEEK 16674) +1,RND 

305 LET NFIO=ÍPEEK 16674-1)/2 
315 LET P=P+1 
320 IF NFIO=A(O) OR NFIO=D(Q) T 
HEN GOTO UAL "400" 
dg NFIO=G (0) THEN GOTO VAL 
sos IF NFIO=C(b) THEN LET K$t(1) 
"0" 
o IF NFIO=k (0) THEN LET K$12) 
= 
nor IF NFIO=H(0) THEN LET K$(5) 
="0" 
345 IF VAL K$=0 EEN GOTO Soo 
380 GOTO VAL "as 
355 PRINT AT NEIN, BD; "FIO CONJUG 


360 IF I=VAL “1º OR I=VAL “2! T 
HEN LET Z=VAL “Or 

365 IF I=VAL "S" OR I=VAL "4" O 
R I=VAL “S" THEN LET Zi=VAL "or 
370 GOTO VAL "250" 
400 CLS 

405 PRINT AT 19,0; 
CONSEGUIU DESARMARA BOMBA E EL 
an or CAUSANDODANOS RO NAU 


410 LET Z&=Z$+5TR$ I+" 

415 LET Ag(T) ="0" 

420 LET 0=0+100+(I=4 OR 1=5) +66 

*(1=1)+218(1=2) +94(1=5) 

425 LET B$(I) ='EXPLODIU...! 

430 GOSUB UAL “1000"+5+(1=2) +10 

*(1=3) +15+(I=4) +20%(1=5) 

440 FOR J=1 TO 25 

445 NEXT JU 

450 GOTO VAL “S100" 

Soo CLS 

Sos PRINT AT 10,0;" PARABENS. 
VOCE DESAT IVO ABOMBA. CONTI 


VOCÊ NAO 


OBO+(I=4 OR 1=5) 
“FOI DESARMADA.” 
“» THEN GOTO 535 


=2) +1500+[I 
Sos LET ES 
S35 IF INK 


sc 
-D M-nO- 


JUNICACOES INT 
ERROMPIDAS 

1991 RETURN 

1005 LET Cg&(t2) ='PANE NA HELICE P 
RINCIPAL” 

1006 RETURN 

1010 LET Cg&(3)=!0 NAVIO ESTA AFU 
Pa 

19011 RETURN 

915 LET Cg(4)="HA FERIDOS NA EN 
ERMARIA 

016 RETUR 

ERA «LET Egis= “CONVES INTERDITA 
1021 RETURN 

1950 CLS 

1052 FA 

1054 GOSUB JAL "1010" 

1055 RAND 


1065 PRINT CrrsrsHaaERERRAAasErA 
ssFE+ssFes2s AT 2,12, Ea 
1AT 4,0;' ÔS JORNAIS NOTICIAM 


O AFUNDA-MENTO DO NAÚIO ""BRITA 
NIA"" DE 122MIL TONELADAS, DEVIDO 
O A ACAO DEGRUPOS TERRORISTAS, 
EQUIPES DERESGATE ESTÃO NO LOC 
AL A PROCURADE POSSIVEIS SOBREVI 
VENTES. O, , ,jVErSsRRErA AREA + 
represa a Rea 
19070 GOTO VAL “I4ada” 


Op TE 


sesrREsAsLsgAs Add 
ERERARRRARART AT 2,12; ii 

“JAT 4,0;' ESPETACULA LU 
AMENTO DO"“BRITANIA"”, CcoM “4 IN 
T IRND+5000) +1000, PASSAGEIROSA 
BORDO, O PERITO, RESPONSAVEL P 
ELO FEITO, ESTA RECEBENDO  HON-R 
AS DE HERÓI NO PORTO LOCAL.",,,” 
EEFSSRPISREASSEsEAASASE A AAA + 


1400 PRINT AT 18,0;Y$,AT 19,0, "0 
Uccaoo PARA RELATORIO." 

1405 SLOL 

1410 IF INKEY$="" THEN GOTO 1410 
1415 IF INKEY$<>"R" THEN RUN 
1420 GOSUB VAL "5000" 

1425 GOTO VAL "1410" 

2000 RAND 

2001 LET AsQ) =INT (RND+410) 

2005 LET CtQ) =INT (RND+10) 
sonar CiQi=Ato) THEN GOTO VAL 
2015 LET D(w) =INT (RND+10) 

2020 IF D(G)=CLO) OR DIQOI=ALo) T 
HEN GOTO VAL "2015" 


2025 LET GrO) =INT (RND+10) 

2050 IF Gíiy0)=DiQ) y 

KR G(.0) =A(Q)! THEN GOTO VAL 

2035 LET HiGg) =INT (RND+105 

22040 IF HiBi=G(0) OR HiQ/=C1 

R HO) =DiO OR H(D) =A tg) Then. 

TO VAL "2035 

2045 LET KiQO) =INT (RND+10) 

o x OR KiQ)=Gi01 O 
DR Kí(GB) =](0) OR Kg) 

“TREN GOTO UAL "204s” 

RETURN 

RAND USR 158514 

FAST 

SEU SU=INT (RND+4041.5) 

LS 

LET Pi1=PI+VAL See 

PRINT AT 2,0;,' O INFORMA 

QUER SABER AQUANT IA QUE UU 

OCE OFERECE.",AT 21,0;,"0BS. VOCE 

POSSUI US 50;"." 

3025 INPUT ig 

3026 IF CODE Lg:25 OR CODE Wg>37 

THEN GOTO UAL "3025" 

3030 LET SI=UAL ug 

30535 GOTO VAL "3040"-155451-0)+3 

D*(SU<=5T1 

3040 PRINT AT 8,0; 'QUE PENA... VÔ 

CE PERDEU “,51T, DOLARES E NAO Õ 

ETEUE A INFORMACAO.” 

30458 PRINT ET 2L,0:vs 

3046 LET 0=0-5I 

3047 3LOW 

3050 IF INKEY$="" 


-0 


Locohom Diu 
PONO-G 


THEN GOTO VAL 


ELE ACEITA 

D(GI- "DA BOM 

TA TRABA-LHANDO 
“AT 21,0;Y$ 


3075 IF INKEy$='" 
"3075" 


CLS 
RAND USR 16531 
3090 RETURN 
4000 CLS 
4005 PRINT AT 7,0," E UMA PENG 
QUE UOCE TENHA DÊ-SISTIDO. TERE 
MOS DE PROCURAR  UMOUTRO ESPECIA 
LISTA PARA TENTARRESGATAR O 
BRITANIA," 
4010 GOTO 1400 
4020 CLS 
4030 STOP 
S200 RAND USR 16514 
5005 CLS 
5010 LET M=M+41 
5015 FAST 
PRINT AT 2,3, “RELATORIO Nº" 


PRINT AT 2,0, "BOMBAS DESARM 
“,08,AT 4,0, "BOMBAS EXPLO 
“iZS;AT 6,0, "FIOS CORTAD 
,P;RT 8,0, INFORMACOES SOL 
ICITADAS - “;PL,AT 10,0; "DUANTIA 
DISPONIVEL - Us “50 
PRINT AT 12,0."0B5 
FOR J=VAL “Iv TO VAL “Ss 
PRINT AT 12+U,VAL "at; 


NEXT q 

SLOu 

PRINT AT 21,0:U$t TO 32) 

IF INKEYS *“*" THEN GOTO 508 


LET Ug=UgIiZ TO ) +U$tI1 

Goto Sosa 

CLS 

BAND USR 16531 

RETURN 

RAND USR 16536 

FOR J=1 TO 25 

NEXT J 

IF I=VAL “1º THEN PRINT AT 

“os; AT 128,19; "EM",AT 13,1 
Mo;aT 14,18;"a 


“2” THEN PRINT AT 

“j8T 16,86; Jo" ,67 19,2 

17,23; * Ar 15 asç 
17,8 


“3” THEN PRINT AT 
“e CAT 13 
“AT 18,7; 


Var Th N PRINT AT 
nn :AT 12,11; "Nº; AT 11,12; 
T 12,10," “SAT 11,9; "4" ;AT 


I=VAL “S“ THEN PRINT AT 
S:BT 13,29) verAT de 


,24; ; ,28) 
RAND ÔSA Tósia 

FOR J=1 TO 25 

NEXT q 

CLS 

GOTO VAL ta 

SRVE “BOM 


THEN GOTO VAL 





trs-color trs-color trs-color trs-col 











Este jogo é uma versão, a linha 
TRS-Color, do jogo Bomba (ZX81), pu- 


blicado nesta edição. Para saber como 
o jogo funciona, tome como base o 
texto para a linha ZX81. Entretanto, 
é importante estar atento a um detalhe: 
nos micros da linha Color, deve-se te- 
clar S para entrar em contato com o in- 
formante, e não A, como indicado no 
outro programa. 

Para gravar o programa em fita, digite- 
o normalmente. Já, para gravá-lo em dis- 
co, tem que se 


as instruções 
POKE 65495,0 e POKE 65494,0 nas 


DO AR O 
20 BOMBA ” 
30 VERSAO - TRS COLOR “ 
ao COLOR 64 u 
so HENIO BEZERRA “ 
O "ONSSERCCLNACC NU nn aa 
70 G0T0200 

BO COLORI:LINE(166,FIOS14+12)-(2 
52,F10+14+48), PSET, PFIRETURN 

90 IF FIO=10 THEN FIO=0:ELSE TF 

F1IO=-1 THEN FIO=9 

100 RETURN 

110 LINE(184,84)-(192,104),PSET, 
BF:ICIRCLE(174,92),16:PAINT(166,1 
00),5,5: DRAW"COBMI BA, 104E10H2ZEBM 
-2,1268L6":PAINT(194,100),0,0:2ZY 
*="FUMACA NO SALAO DE JOGOS":RET 
URN 

120 DIM D2(4) : GET(43,150)-(B1,15 
8),D2,G:LINE(43,150)-(81,158),PS 
ET, BF:ZyYs="PANE NA CASA DAS MAQU 
INAS":FORH=1 TOS: PUT (BeH+63, 150-4 
“H)-(B*H+B1, 158-4eM), D2, PSET:IFOR 
I=1TOLJO:NEXT 

130 IF H=6 THEN RETURN: ELSE LINE 
(BeH+63, 150-44H) - (BeM+<BI, ISB-4eH 
)  PSET, BF:NEXT: RETURN 

140 LINE(120,160)-(144,160),PSET 
:FORH=145TOISP:;LINE(I41,HM)-(191+ 
159-H,H), PSETILINE(130,160)-(140 
+ 168), PSET, BF:CIRCLE(132,160),4, 
0,1,0,. Z5:CIRCLE(140,160),4,0,1, 
.S,. 75: I=RND(40) *SILINE(132-1,H+ 
25)-(132+1,H+25) , PRESETILINE(14O 
1 160)-(132, 168), PRESET 

130 FORI=1TOZO:NEXTI,H:FORH=1 TOS 
OO:NEXT:ZY8="0 NAVIO ESTA” AFUND 
ANDO" : RETURN 

160 LINE(88,82)-(104,92),PSET, BF 
: DRAW"COBMBS, POSM+ 14, 64M+T, -áIM- 
17,-6:D6" :PAINT(100,92),0,0:7Y8= 
“HA FERIDOS NA ENFERMARIA" :RETUR 


Soares Amorim 


linhas 110 e 1090, respectivamente, 
pois o BASIC-disco não aceita tal ins- 
trução. 
Ao rodar o programa, você terá o 
com os fios da bomba e um 
icate. Para escolher o fio a ser corta- 
do, movimente o alicate na direção 
vertical com as teclas-setas (* t+ "e 
* 4 "), colocando o mesmo na linha ho- 
rizontal do fio. Paracortar, tecle' — ”. 
Ao iniciar o jogo, você tem cinco 
minutos para desarmar todas as bombas, 
salvando assim o navio; caso contrário, 
se restar uma bomba, mesmo que seja 


N- 
170 LINE(224,112)-(184,108),PSET 
FLINE-(200, 104), PSET:PAINT(220,1 
08),5,5:2Y8="ESTRAGOS NO CONVES" 
“RETURN 

180 DATA 81,853,82,80,81,83,82, 


+ 83,86,80,89,63,86,80 
+8A,80,60,65,60, 6H,83,66,85,8B0,B 
0,8A,08,05,0E,09,0F,80,02,05,1A, 
05,12,12,01, "TERRORISTA ESPALHOU 
", "BOMBAS Vl NAVIO", "britania PT 
", "VOCÊ VO ESPECIALISTA", "FORMAD 
O CURSO", "ENGENHARIA BELICA ufrn 

V6", "CONVIDADO MISSAO PT 

200 CLSO: POKE65495, 0: PCLEARB: FOR 
H=1158 TD 1286 STEP32:FORJ=H TO 
H+IP:READIS:POKEJ, VAL ("LH"+IS)ZN 
EXT:NEXT:FORH=1 TOSO0: NEXT:FORH=1 
422 TO 1434: READIS: POKEH, VAL ("LH 
“+18): NEXT: FORH= 1 TOBOO: NEXT 

210 CLS:PRINTOSAS, STRINGS (TO, 45) 
:PRINTO417,"e";PRINTOS4S, "*“;FOR 
P=1T07:READPS:PRINTO47E, "e"F:PRI 
NTG449,"* “"S:FORH=EI TO LEN(PS):P 
RINTMIDS (PS,M, 1) :PLAY"V29L 25501 
AB"Z:FORI=SITOLO:;NEXTI,HIPRINTESL1 
5" “FINEXTPSPRINTOA49P, STRINGS (30 

nom) 

, 
220 TIMER=O:DIM B(5,5), NUS (4), NA 
(5), M$ (5), ACHO), C(BO)FPMODE 4,1: 
PCLSS: COLORO: DRAW" BM1 4, | IZRZOUZB 
RIQULGEZO; DI6GRALMEBDI 2; RZ4DSL 16D 
BR28U1OFRISDIOR4GODARI GUBS BHIUSEF 
BD12R32D8;R16G48L128H48":FORI=1T 
OS:NA(I)=3:NEXT 


Bomba 


Henio de Araújo Bezerra e Jodrian 


de pequeno estrago, a emb ão irá a 
pique. Esse tempo é conseguido com 
sua precisão isto da função TIMER. 

ara a execução do p » digite 
e para carregar, PCLEARE e 
RUN. 





Henio de Araújo Bezerra é estudante de En- 
genharia Elétrica na UFRN, trabalha no Setor 
de de uma empresa de constru- 
ções e possui um Color 64. 

Jodrian Soares Amorim de Freitas é autodida- 
te em , estuda Engenharia Qu mi- 
ca e possui um TKBS5. 


230 FORIsBBTOLOASTEPB: FORI=40TOS 
ASTEPBILINE(I, 1)-(J+4, 1+4), PSET, 
BINEXTINEXTILINE(72, 100)-(84,112 
»,PSET, BIFORI=102TOLOBSTEP6:FORJ 
=92ID1I0OBSTEP4A:LINE(I,I)-(J+4, 1+4 
) ,PSET, BINEXTJ, I:FORI=92T0100STE 


P4:FORJ=120TOLZASTEPS:LINE(J, 1)- 


(1+4,1+4),PSET, BENEXTI, 1 

240 FORJ=132T01S6STEPIZILINE(J,1 
04)-(J+8, 108), PSET, BILINE(J+4,10 
4)-(J+8, 108), PSET, B:NEXT: FORJ=48 
TOIS4STEPL6:CIKCLE(I, 124), 4:CIRC 
LE(J+8,136),4:NEXT;CIRCLE (184,13 
6) ,/9:CIRCLE(168,136),4:LINE(72,8 
B)-(76,92) ,PSET, BILINE (BO, 88) - (8 
4,92) ,PBET, BE R$= "NAO! 

250 T»TIMERICIRÇÃE (184,96) ,4,0,1 
+» 78: CIRCLE (184,92),8,0,1,.75:PA 
INT(124,112),0,0:DRAW"CSBMIS7, 12 
ORSF1DIGIFNLIFID261L3U7$ BRORSF ID 
IGINLSSFIDSBLALUZERIONL 15 NRID7NRI 


L1BU7S BR7RABL 2D7BR6US; NR$UZEZF 2D 
SBR4FUZBDIFABDZU7BRES NL INRID7NL 1 


RIBRSFUINRIAUZE 2F 205" 

260 ND=O:NES0:R=0:CLSO:POKE1T6,S 
:POKE 137,0: SOUND200, 2: PRINTTAB(1 
O)F "ATENCAO *!+":;FORH=1TOZO0O:NEX 
T: SOUND225, 4: PRINTTAB (6) 3 "ESQUEM 


AS DAS BOMBAS: “:FORH=1TD600: NEXT 


: SOUNDI40, 2:PRINT,, TAB(11)“<ENTE 


R>” 


270 IF INKEYS<C>CHRS (13) THENZ7O: 


ELSE PMODEA, S:POLSS:FORI=1TO4S: PC 


OPY 1 TO (1+4):NEXT:PMODES, 1:8CR 


EENLLSFORISITO T/47 I=RNDC(-TIMER 


DENEXTE OS RND (500) : PMODE4, 5; DRAW" 


EBMIB, LIIRZZOGIOFLE6PDISL 74H46": CO 
LOROZLINE(140,122)-(220, 122), PSE 
TaPAINT(132,114),5,5 

280 PAINT(1538,126),5,5: DRAW“BMIZ 


+ I20R192BG164L144UL6";FORI=40TOL6 


OSTEPIGILINE(J,112)-(],128),PSET 





MICRO SISTEMAS, meio/86 


ILINE (J+40, 128) (+40, 144), FSET: 
NEXT290 DRAW"EMI 72, | 2BU2R40GRBUA 
:RADBRBLUARAUZE RIDOR4AUARILUAGRBDLZ 
"PAINT (200, 127),0,0:DRAW"BMS6, 1 
S2ULOR7D6RZ IDAS RIZDAEMB4, LSBR3OD 
ALSSNUZDS": FORI=92TOIL2STEP4;LIN 
E(J, 152)-(], 156), FSETINEXTEL INE ( 
69, 156) -(B4, 158), PSET, PF:LINE (BO 
1148) -(116, 152), PSET, EF 

300 CIRCLE (464, 154) , 2:CIRCLE(78, 1 
54), 27:L INE (66, 152)-(78, 152)  PSET 
:NUS (4) ="EMIb6, LOZEZD6NLIRI "NUS 
(3) ="EMS4, LEGUERFDZGIRS "NUS (2) = 
"BMI32, ISOUR4G2RE D2GL2HU"! E NUS (1) 
="RMBO, LO7LIEZUEDA" : NUS (0) ="EM2E 
bs 1O2L4D2R2ZFD26L2HU" 

3510 FOR H=0 TO 5:DRAW NUS (H) :NEX 
T: DRAW"CS"+NUS (4) : SCREENI, 1: FOR 
H=1 TO 3500:NEXT: PMODEA, 1: SCREEN 
1, 1:FOR H=1 TO 1000:NEXT:CLS:SCR 
EENO,O!FOR H=1 TO 4:FPCOPY (H+4) 
TO H:NEXT 

320 CLS: POKE1Z7,67: INFUT"DIGA QU 
AL A BOMBA QUE VOCE QUER CO 
MECAR"; N$: N=VAL (N$) 2 IF Nei OR N> 
5 THEN PRINTGI97, "NUMERO INEXIST 
ENTE“: FORH=1 T0400: NEXT: GOTOZ20:E 
LSE PRINT.," APARTIR DE AGORA V 
OCE TEM", 5 MIN PARA DESARMAR 
AS", BOMBAS." 

330 FORH=0TOS:FORJ=1 TOSSTEP2 

340 B(J,H)=RND(10)-1:IF H<>0 THE 
N FORI=0TOH-1:1F E(J,H)=B(J,D T 
HENZ40: ELSE NEXT 

350 E(J+1,H)=E(J, HI: BCs, HI =B(3,H 
JENEXTI, HE FMODEZ, S!PCLS 

360 DRAW "CZEMI92, 156M-24,-4M+16 


«—4R16; EBNM+4, BR4OF 4G4L.36; GBFBRI 
6FAG4L AO; NM+H4, —BHBL 16M-16, —AM+24 
«—43 EMI bh, 104MAL6, “COMA O, = 2IM+LO 
+= ONM+Z, BM+4O, 4M42, AM-2, +4M-3B, — 
ASM-LO, OMHIO, AME3B, —4M+2, 4M-2, AM 
“40, 4NM+2, = M-10,-bM-16, -2M-16, 


tu 
370 PAINT(206, 148), 3, FIPAINT (220 
,144),2, F:PAINT(220, 168), 2, FIFAI 
NT(196, 104) ,3, 3: PAINT (224, 96),2, 
3:PAINT(224,112),2, 3: GET (166, 138 
)— (252, 174) 8, G:GET(166,88)-(252 
1120), C, 6: TIMER=O 
380 FMODEZ,5:PCLS:COLOR4:LINECL6 
+ 16)-(124, 170), PSET. BF: DRAW"C2BM 
135, 34UBERSZF 1: DBGLES":LINE (139,40 
3= (139,49), PSET: DRAW"BM1 34, SSULE 
1R4F1D4:M-5, SD2K6EM-6, 4RSD3SGINL 
3F1D4GILT: HIUSEM+S, BNDLOL1D2;L3D 
ANR3HIDZ2R4:BM+1, 7LSDAR4FIDA;GILS 
HIUZ" 
390 DRAW"EM+6, BULHIL4GIDA;FIRZEÍ 
UZHIL 35 EM=1, PNR6DLROD4L 23 D2LZD3B 
M-1, 8HIUZ:EIRIFID2GINLZIFIDAGILS 
HIU4; EM+O, 16D2FIR3E1UB;HILIGIDZF 
1R3": SCREENI, 0: FORH= 1 TOS00: NEXT: 
COLORZ:LINE (20, 20) (120, 146), PSE 
T, B:PAINT (68,21),2,2:COLOR4 
400 FORH=30TOLS6STEP14:LINE(28,H 
)=(112,H), PSETINEXTEFIO=s9:CE$="" 
410 PUT (1b6, FIOXI4A+12)- (252, FIO 
14+48) , A. PSET 
AZO IF TIMER>=18000 THENZ1LO: ELSE 
PI=PEEK (341): P2=PEEK (342) 1 IF Pi 
=247 OR PZ=247 GOSURBO:FIO=FID+( 
P1=247) - (P2=247): GOSUH9O: GOTO41O 
ZELSE TES=INKEYS:IF TESS"R'" THEN 
S60:ELSE IF TE$="S" THEN600: ELSE 
IF TE$="D" THEN6SO:ELSE IF TES 
>CHR$ (8) THEN42O 
430 FOR H=1 TO LEN(CFS)ZIE STR$( 
FID)=MID$(CFS,H,2) THENIZO: ELSE 
NEXT: PUT (166, F1ORI4+12)- (252, FIO 
*14+48) ,C, ESET: COLORZ: D=RND (44) + 
S2ILINE(D,FIOXI4+30)-(D+12, FIO 
4+30), PSETICIRCLE(D,FIO*14+56),8 
,4,.75,. 753 CIRCLE(D+12, FIOXL4+24 
148,4,.75,.25,.5 
440 CFS=CFS+STR$ (FIO) :PUTCLbo,FI 


Bomba 


MICRO SISTEMAS, maio/86 


DE14412) (252, E 10414448) A, ESET: 
FOR NF TO 5 
EN NEXT: 0=0435:B0TO42ZO:ELSE ON N 
F+1 BOTO4SA, 450, 450, 670,670, 770 
450 0=0+200:NA (N) ENA CN) =171F NAL 
N)>0 THENS2O:ELSE IF N=7% THEN O= 
0+10000:ELSE IF N=Z THEN 0=0+700 
C:ELSE IF N=1 THEN 0=0+4000; ELSE 
D=0+2000 
460 Q=0+RND (500): C$=0$+STRS (N):C 
D$=CDS+STES (ND: ND=ND+17 IE TIMER? 
=18000 THEN420: ELSE IF NDANE=S5 T 
HEN T=TIMER/3600: BOTOSZO:ZELSE CL 
S: PRINT... VOCE CONSEGUIU DESARM 
AR," À BOMBA"N:FORH=S1 TOS00:NEX 
T:CLS 
470 PRINT,," PARABENS, CONTINUE 
TENTANDO”, " MAS ANTES DIGA: ": EMO 
DE4, 1: SCREEN1,1:1IF N=1 THEN P$=" 
CO"TELSE P$="C5" 
480 FORH=I TOS: DRAW"CS"+NUS (S-N) ; 
FORI=1TOL00:NEXT: DRAW"CO" +NUS (5— 
N) :FORI=1TOL00:NEXTI, 4: DRAWE'$+4NU 
$(5-N) : FORH=1 TOZ00: NEXT 
490 08="H"': INPUT” QUAL A FROXIMA 
EOMBA" 3 N$: IF N$="R" THEN N=0:60 
SUES6Q:ELSE IF N$="D" THEN :N=0: 
GOSUR450: ELSE N=VAL (N$) 
500 Q8="":IF N<1i OR N>5 THEN 490 
ELSE FOR H=1 TO LENCC$): IF VAL( 
MID$(C$,H,2))=N THEN PRINT,," EO 
MEA JA? TRABALHADA" :FOR H=1 TO 5 
00:NEXT:PMODE 4, 1:SCREEN 1,1:FOR 
H=1 TO 900:NEXT:ELSE NEXT: GOTOS 
Bo 
S10 IF N=1 THEN P$="CO"sELSE P$= 
“Essa 
520 CLS: BOTO4HO 
30 IF ND=5 THEN 2=0+64000+RND (1 
2000) ELSE 0=0+19000+RND (2000) 
540 CLS:PRINTTAE(1O) "FARABENS 11 
Essa! VOCE CONSEGUIU SALVAR O 
BRITANIA DO NAUFRAGIO EM", 
“F2PRINT USING"RA MIN E “SFIX(T) 
3:PRINT USING"HA SEG, "SFIXCCT-E 
IX(T)) 460) 5: PRINT"SENDO CHAMADO" 
«* PARA TRABALHAR NO SERVICO", 
DE SEGURANCA NACIONAL. "4, 
550 PRINT" BOMBAS DESARMADAS" : CD 
$," BOMBAS EXPLODIDAS":CES,' QUA 
NTIA DISPONIVEL US$"; 0:GOTOBZO 
S60 CLS:R=R+1:PRINTTAB(9) 3 "RELAT 
ORIO NG"SR:PRINT,," TEMPO: ",s" B 
UMEAS DESARMADAS: "iCDS," EOMBAS 
EXPLODIDAS: "3CE$," QUANTIA DIS 
PONIVEL: US":0," SUBORNO - "R$ 
570 PRINT,,“ OESERVACOES: ":FOR H 
=1 TO S:PRINT"  *"sM$CH)SNEXTITE 
0$="F" THEN RETURN 
S80 PRINT,, TAB(11)"<ENTER>"3 
590 AS=INKEY$: T=TIMER/3600: IF T> 
=5 THEN420: ELSE PRINTEZI, USING" E 
H MIN"SFIXCTISIPRINTO E "S2PRINT 
USING"HA SEG"SFIXCCT=FIXC(T)) 460 
J:IF AS<PCHR$(13) THENS90:ELSE C 
LS:G0T0440 
400 IF R$="SIM" THEN CLS:PRINT,, 
" SUBORNO JA” UTILIZADO": FORH=1T 
0800:NEXT:GOTO640: ELSE GP=RND (0) 
*1.5+10:CLS:PRINTE417, "QUANTIA D 
ISPONIVEL: "Q:PRINTESS, "O INFORMA 
NTE PERGUNTA: " 
610 INFUT" QUANTIA OFERECIDA": RO 
ZIF Q0>0 THEN PRINT,, "NAD DEVE S 
ER MAIS DO QUE";0:GOTO61Q:ELSE 1 
F CO<DP THEN PRINT;," O INFORMAN 
TE NAO ACEITA", VOCE FERDEU US" 
DO: FORH=1 TOBOO: NEXT: BOTO630 
620 PRINT..." O INFORMANTE ACEITA 
E DIZ QUE"," O FIOSE(NRND(2)+ 
DIE” UM FIO ARMADILHA": R$="SIM 
":FORH=1T01000:1F INKEY$:>"" THE 
MN H=1000: ELSE NEXT 
630 B=0-00 
840 IF Q$="H" THEN RETURN ELSE P 
MODE 5, S:SCREEN 1,0:60TD420 


650 CLSTPRINTEs" VOCÊ QUER MESMO 
DESIBTIR? (S/N)" 
666 E$=INKEVES IF TIMERD>=18000 TH 
EN4ZO: ELSE IF Kg="N" THEN640:ELS 
E IF Kgs "5" THENG60O: ELSE PRINT, 
+" QUE FENA, FALTAVAM APENAS", S- 
CNE+ND) E "EOMBAS", «" SEU TEMPO ER 
A DE:": T=TIMER/3400; PRINT USING! 
E MIN E "EFIXCDS:PRINTUSING" AA 
SEG"SFIX((T-FIXC(TI) *60) GOTO 
670 NE=NE+1:CES=CES+ASTRS (N):C$=C 
$+STR$ CN) E 0=0-497% (N=1) "521% (No 
D- 1098 (N=) 755% (N=4 OR N=5):FOR 
H=1 TO 20:FOR Hi=L TO HeS: NEXT: 
S=0*(6=1)- (G=0): SCREEN 1, S:PLAY! 
015.603 VZ1:C":NEXT:PMODE4, 1: SCRE 
EN1, 1:FORH=1TOLOOO: NEXT: IF N=1 T 
HEN PF$="COPF ELSE Pá="C5" 
680 DRAW FS+NUS CSN): COLORS:ON N 
GOSUE 110,120,140, 160, 170:M$ CN) 
=2Y$8: FORH=1T0Z500: NEXT: IF N=53 TH 
EN 0=0+9:GOTOZIO:; ELSE IF N=2 THE 
N 0=0+21 ELSE IF N=1 THEN 0=0+66 
“ELSE 0=0+100 
690 IF INSTRICES, "2950 AND NE> 
=2 THENZIO 
700 IF NE<3 THEN CLSSPRINT,," VO 
CE NAQ CONSEGUIU DESARMAR'!," À BR 
OMEBA"ENS"ELA EXPLODIU, “." CAUSAN 
DO DANOS AO NAVIO...": FORH=1TOL2 
OO: NEXT: CLS: GOTD4GO 
710 MEC ="0 NAVIO ESTA AFUNDAND 
O": POKE6GAPA, OTCLSIPRINTEL, STRIN 
G$ (30, "*) 3 PRINTB4S, "URGENTE 
[ME PRINTESS, "e! GLPRINTE6R, ter SE 
FRINTE6S, STRINGE (3 
720 PRINT,," NAUFRAGA RECENTEM 
ENTE 0," TRANSATLANTICO “ERITAN 
IA" "," PESANDO" ; LOO+RIND (500) 5" TO 
NELADAS,",." DEVIDO A ACAO DE TER 
RORISTAS",s+" EUSCAS JA” ESTADO 5 
ENDO FEI-"," TAS NO LOCAL,"," AT 
E" AGORA, NAO HA" SOBREVIVEN 
TES...“ 0$="PF":T=TIMER/3600 
730 FOR H=1 TO 5000:NEXT:GOSUE 5 
607: PRINTEZA, USING"HH MIN E “GFIX 
(CDI TPRINT USING"HA SEG"SFIXCT- 
FIXCT)) n60) 
740 PLAYPOZEVSIEL6SDEP2OSDIPZOSL 
2ÓSDIP7OLADI;PIS! 
750 PLAY"L6SFEPZOSLZOFEIPTOILG:SE 
3PROFL2OFDEP7OFLAS DILLOSP20OF CHIP 
7OSL4GD” 
760 GOTO GEO 
770 DRAW"CSBMLA, 179U1HILSGI; DBF1 
RSELULEM+9, LI FIRSELUBHIL SS GIDBBM 
+14, 1ULOF1DSS RIDIRINDIUZEM+AT, 73 D 
ZFIR4ELUGNL AS RIEM+S, OCD9FIRSELS UP 


780 DRAW"BM+14, 2ULHILIGIDBFIRIEL 
SUZL2BM+1 1, SUPEIRSFIDANLSDS: EM+1 
O, OLILUTORZFIRISFIDOGLEM+14, IL SHI 
UBEIRS: FIDBEM+9, LULOR4F IDT; GILZD 
1F4"7960 0=0+7: NE=-2% (N=1) -(N=2) — 
TH (N=4) —4% (N=5) —3* (N=5) FOR F=0 
TO 5 

800 B(NE, F)=RND(10)-17: TF F=0 THE 
N BiIO ELSE FOR H=O0 TO F-121IF ECN 
R,F)=E(NH,H) THEN 800 ELSE NEXT 
B10O NEXT:IF N<Z THEN 420 ELSE IF 
N<>5 THEN FOR F=0 TO S:B(S,F)=B 
(NE,F):NEXTIELSE FOR F=0 TO S:B( 
4,P)=B(3,F) NEXT 

820 GOTO 420 

830 PRINTE460, "<ENTER?"a 

840 TE$=INKEY$: IF TESC>CHR$ (13) 
THEN 840 ELSE CLS 

850 PRINTEZIA, "DUTRA (S/N)? 

860 TES=INKEY$: IF TE$="N" THEN E 

ND ELSE IF TES<>"S" THEN B60 ELS 
E POKE1271,19:PRINT,," ESPERE UM 
MOMENTO. ": POKE6S4APS, O: RUNZZO 
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Caverna dos diamantes 





Cristiano Telles Ribeiro 


Neste jogo, desenvolvido em um 
DGT-100, você é um explorador que 
descobriu uma caverna de pérolas e dia- 
mantes habitada por um perigoso micros- 
sauro e formada por um conjunto de 
subcavernas na forma de labirinto. 


Seu objetivo é pegar o maior número 
de pérolas e diamantes possível e tentar 
escapar da implacável perseguição do 
microssauro. 

Depois de um certo tempo exploran- 
do as riquezas do labirinto, abre-se uma 
saída num dos quatro cantos da caverna. 
Assim, se você conseguir chegar a esta 
saída, poderá passar para o próximo ní- 
vel, onde descobrirá mais diamantes e 
encontrará o microssauro ainda mais 
furioso. 


* CAVERNA DOS DIAMANTES + 
PONTOS: 46 
TEMPO: 295 





O jogo tem um certo grau de dificul- 
dade, pois exige do leitor habilidade 
com o teclado, para mover-se; racioci- 


sar de um pouco grande, pois ela possui 
uma bonita apresentação e agradáveis 
efeitos sonoros-visuais. 


nio rápido, para evitar que o microssau- 
ro pegue o explorador; e uma boa dose 
de sorte! 

Vale a pena digitar a listagem, ape- 


Cristiano T. Ríbeiro programa em li 

BASIC e possuí um DGT-100 há dois anos. 
Ele ainda desenvolve jogos e programas educa- 
tivos. 


10 CLEARLOOOFDEFINTA ZEDIMXCISO) 

20 BECIDCHRECL API ACHRECIZID+CHRECLSDI BECO) oCHRECISI +CHRECI4ALD+CHRECI AL) 
JO ZLSE M/S * 22 BARRAS 

40 ZA=SVARPTIRCZZE) ZH PEEKIZAMI I+PEEKCZAS DP) “PSA DEFUSRS ZH 

SO FORI=ZHT0Z20+*d1EZIvIs[FZ7)927267THENZT=ZT-69545 

40 READR:IPOKEZI,RINEXTI 

70 DATAZ05,127,10,76,69,67,1,211,255,16,754,67,62,16,211,258 
1 

BO 0=13H=15I607R(1)-RND(SO0)4S00:R$C1)=“TITI 

90 GOSUB7ZLOFGOSUNPPOLRYS(1)="RETURNCSRYSCSISCHRSCIVEILRXSC 1) 
(C197)2RHM$CL)-CHREC LG) IRHSCD)=CHRSCISI) 
100 SS=STRINGSCSZ,1P151PS *CHR$(140)+ 
110 FORI=1TOLPIGS=-0S<PSINEXT 

120 MSCI)SCHREC179)+*CHRSC140)+CHRS( 
130 C$8=*" CETOSCHREC1PI)CHRECIZO) 
140 Q(1)=672ACDIIPLEQCID=PHITQCA) 
150 SS=USGR(2UOO0) EB UBR(ZIGOO):SS= 
160 GOSUBLHO 

170 Coe PORICATOSGEPRINTEGSDUSROGOO0+ In) NEXTEDOSUNADAO 

180 PRINTOAZO,O CAVERNA CGC 

190 FORTUATONLONNCL) dE BS UK Ca ln) ENEXTEFORI A TOBOGENEXT 

200 CLSIUnGaa 

210 FORI=64TOPAOSTEPSASPRINTIL,Fhdl+aO,FhrENEXT 

220 FORI=8/TO0PGANTEPIZOSPRINTAL, SS; STIFICPOIPRINTAL HAS, 0%; ENEXTELSENEXT 

230 FORI=19210B9PSTEPISZHSPRINTOLAENDEOS)CI,PErULcI HA RNDES)CI,PSFDIrIPARND(G)NI,PS 
FINEXT 

240 FORI=256T076H5TEPI2ZH 

250 D=] *6+*RNDCH)CITIFPEEKIDEH-64)=1PLANDPEEK(DeH+ 44) = 1 PIPRINTOD,FSFELSEGOTOZSO 
260 E=L+II ANDES )CITIFPEEKCECH-64)=1 71 ANDPEEK (E cHeG4)=1PIPRINTÕE, FSFELSEGOTOZ60 
270 NEXT 

2806 FORI=1TOC 

290 X=1*RNDCIP)CIITSRNDCIZ) 
JELSEGOTOp PO 

300 NEXT 

310 PRINTOO, PONTOS: 377017," * CAVERNA DOS DIAMANTES 2“ 1052," TEMPO:";350; 

320 V=RND(4A) FHSQ(VIFIFV)2So 64ELSES=64 

330 PRINTOB,BSCISFENHSUSRCAISO) IGOSUBSBO HSAAGIPRINTOE,DSC2)FOB-S, CE; ESS=USR(AS7 


CLEARCIRXS(D)=CHRS 


CIFSSSTIRINOSC3,191) 


179)2MGLDICCHRSC 140) *CHRSC17P)*CHRE( 140) 
+CHR$CIPI) 

1017 

USRC32147)2FORI=1TOJOO:NEXT 


*ISIFPEEKIHOXOTEGA) LAOPRINTOXA TAGS, CU"; ESS=USR( 10000 





Os melhores especialistas, programas, 
equipamentos, formulários, manutenção, 
cursos, livraria, videoclube. Tudo para Informática, 
com segurança e garantia, num só lugar 


O 1.º Shoppina de Informática do Brasil. 


RIOafÊ INFOSHOPPIN 


* Aleph Sistemas 
e Métodos 

e Andraus 
Informática 

e Ciência Moderna 
Computação 

* Compumix 


Es 


* Racimec 

* R&T Informática 
e Trade Informática 
eUnitel 

* Videomática 


* Computer Shopping 
Moore 


e Computerware 

“CR 

e Data Ribbon 

. Flamengo Vídeo Club 
e“Mikros 












0):GOSUBSBO:PRINTOB-S, STRINGS(3,191)70B,BGC1); 
340 FORI=6550TOSSOOSTEP-S:GOSUB470 

350 PRINTOB,B$(0);:SS=USR(I)ENEXT 

360 0=1:X(0)=142V=RND(4) 2:M=B+H 

370 P=PEEK(14400):IFB=X(U)THENSOGELSEIFP)OPRINTOB, CSFELSE40O 

380 IFP=32ANDPEEK(M-1)()191B=B-3ELSEIFP=64ANDPEEK (M+4)()191B=B+3ELSEIFP=BANDPEEK 
(M-64)()1918=B-64ELSEIFP=16ANDPEEK (M+64)< )191B=B+64 

390 M=B+HET=PEEK(M+1)2IFB=X(U) THENSODELSEIFT)32G0SUB450 

400 IFB=0(V) THENSSDELSEPRINTOB, BELO); 50=0+1LEPRINTASB, 3500; E IFG=350THENSSOELSEGO 
SUB470 

410 IFO=KGOSUBS40 

420 X(G)=BEIFG)LTHENSI0ELSEFOR I=1 T025:NEXTIGOTO3ZO 

430 U=U+1 2 IFX(U)=X(U-1) THEN4IO 

440 PRINTOXCU-1),CHIDXCU) MELO); EGOTOGZO 

450 IFT=1402=2+1:55=USR(1950)ELSEIFT=427=7+50:G05UB49A 

460 PRINTGOZ,Z; FRETURN 

470 IFO=10=2ELSEO=1 

480 RETURN 

490 PRINTS, STRINGS(3, 191); EFORT=PPPSTOLOVOO: SS=USR CI) INEXTEPRINTOB, Cb; RETURN 
300 FORI=B0TOZOOSTEPLOZPRINTAB, To; ESS=USR(B4OO-I):PRINTOE, CG; :GS=USRCBSOO-])3NEX 
T 

S10 PRINTOSISO,” FIM DO JOGO “; FFORI=5950TOGO4SSTEPSEGS=USR (IT) ESS=UGR(T+100)ENEXT 
EFORI=1TOJSOENEXTEIPRINTOASIS,” TECLE (CLEAR) “5 

V20 SS=USR(IO0O+RND( 200) ):P=PEEK(14400)2 IFP<)ZTHENSDO 

530 G0T0740 
940 PRINTOQGCV) ,CEFIFORT=1000TOLLIOSTEPSISS=USRCI) INEXTIURETURN 

550 PRINTWB,BHCL)F2LFO=I50M=ERND(P) XL OEPRINTASIZ, “x BONUS “2 FORR=QTOMSTEPI O: 
SS=USR(R+LSBOO)EPRINTOAS44,Ry SNEXTEZ=2+MIPRINTO?,Z; CELSEPRINTOSI6,” PARABENS tt! 

























560 FORR=1TOGEFORI=59700TOGOOGOSTEPÍO:SS=USRCI)DINEXTI,RIFORI=STOZOOINEXTIL=L-35 FL 
<5L=5 

570 PRINTOP6O,; EK=K+LOIGOTOLZO 

580 CLSZFORI=1TOSZPRINTDGCI)FENEXT 

SPO PRINTI4OO,* PORZI CRISTIANO TELLES RIBEIRO *“s0525,8$(1);” -> EXPLORADOR“ ;95 
45,M$(1)7” —) MICROSSAURO”; 

600 PRINTIG4SI, (UFPI) -) PEROLA <í PONTODOpO672,0C * ) «> DIAMANTE <50 PONTOS) 








640 PRINTO/6H, “OBJETIVO: PEGAR TODAS AS PEROLAS E DIAMANTES DA CAVERNA E TENTARE 

SCAPAR DO PERIGOSO MICROSSAURO. PARA MOVER USE AS (SETAS). BOA SORTE 111”; 

620 PRINTO972,"CRETURN) PARA JOGAR OU (CLEAR) PARA VER OS RECORDES”; 

630 SS=USR(7950+RND(S0) ) E GOSUBAZO 

640 PRINTASZS, BELO) OG4G, MELO) FMPZI,RYGCO) APPA, RXGCO) 

650 P=PEEK(14400)2 IFP=1 THENG70ELSEIFP=260SUBBLO 

460 GOTO6IO 

670 RANDOMIZ=020=0: 0:K=502:RETURN 

480 FORI=1TOIGO:NEXTERETURN 

690 M=20:N=24:FORW=0TOILOSTEP64:PRINTOUAM, STRINGSCN, 194); ]N=N+BEM=M-4ENEXTIFORU= 

3B4TOSI2STEP64:PRINTOW, STRINGS (44,191) 72NEXT 

700 FORW=576TOBPOSTEP 44 N=N-BzM=M+47PRINTONAM, STRINGSCN, 494) 5 NEXT SRETURN 

710 CLS:N=3:M=552FORI=64TOP6OSTEP64:PRINTOL, STRINGSC(N,1914)3CHR$(1924M) STRINGECN 

APÍ)FEIFICS/6N=N+31M=EM-6 

720 NEXT: J=292FORI=15BTOP26STEPLÍZBIPRINTAL, UM”; ENEXT 

730 J=J+126:PRINTOJ,BECRND(Z)) FSPRINTOJ-128,”  “p2SS=USR(6700) RETURN 

740 RC=7332:IFR(S))=ZTHENHIO 

750 FORI=S5TOLSTEP-42 IFRC(I)CZTHENNEXT 

760 FORR=5TOI+2STEP-S ERCRISRCR-SDIRBCR)=RECRL) ENEXTERCI+HÁ)mZERGC +) 

770 CLS: GOSUB6PO:PRINTAZOB, SIRINGS(41,149)70392,” PONTUACAO FANTASTICA 
“50396, STRINGS(41,140); 

780 FORW=1TOS:PRINTIIGD+, |”; SFORR=6000TOSPODSTEP-107SS=USR(RIINEXTR,U 

790 PRINTO460,” VOCE ENTROU PARA A GALERIA DOS MELHORES “9524,” JOGADORES, DA E 

AVERNA DOS DIAMANTES [11 “; 

800 PRINTHG6B, STRINGS(B,143);0732,STRINGS(B,” “)70796,STRINGS(B, 188); 0588, STRING 

$(41,176); 2 GOSUBPOO:GOTOLAO 

B10 CLSIGOSUBAPO 

B20 FORI=210T0750STEP64:PRINTOL, STRINGS(29,” “); NEXT 

830 RWB=CHR$(1B8) ERNS=CHR$CLPL)ZRP=QIPRINTOZIL, RWS;STRINGS( 25,140) RUSPO3IP, RN; 

STRINGS(5,140);RWSESTRINGSC( 10,140) RUS;STRINGS(B,140);RN$5 0275, RNS; DI0L,RNS; 

840 FORI=40ITOGSPSTEP64APRINTIL,RNSFAL+O,RNGFDI+17,RNS;WI+2A, RNS; ENEXTEPRINTOZ2R 

+CHR$( 176) STRINGS(27,179)3CHR$(176)5 

850 PRINTUZZP, GALERIA DOS MELHORES”; EFORI=490T0720755=USR(I) NEXT 

B60 FORI=405TOSBPSTEP64:RP=RP+LZPRINTOL,RPFDI+7,R$CRP)GWI+47,RCRE);SFORR=5S0TOSS 

0:SS=USR(R):NEXTR,I 

870 PRINTAPES, TECLE (CLEAR) 

BB0 GOSUB470ZPRINTUPPZ,RXECO) ; 3 SS=USR(B200+RND(SO)) 

890 IFPEEK(14400)<)2B0TOBBOELSEGOTOL GO 

700 PRINTORC, STRINGS(6,176)5 

910 AS=INKEYS:GOSUB47Z0: IFAS=CHR$(B) ANDRC)733RC=RC-1 1 SS=USR(3450)2 IFRCC738PRINTOR 

C+1,CHR$(176) ELSEPRINTORCHL, O “3 

920 IFAS=CHR$(13) THENGOTOPSOELSEPRINTORC,RHSCO); FIFAS()RAZASC(AS)ELSEGOTOPLO 

930 IFRA(IZORRA)LOZORRC=739THENPLO 

9740 PRINTORC,ASPIRC=RC+I IRA=0:SS=USR (3800) 1GOTOPIO 

9750 FORR=9870T0999OSTEPIO:SS=USR(R)ZNEXT 

960 FORRI=733T07391RK=PEEK (RI+15360)1 IFRK)122THENRK=32 

970 R$(1+1)=R$(1+5)+CHRECRK)ENEXT 

980 RETURN 

990 FC1)=332F(D)=352F(3)=302F(4)=2025F(5)=47:F(6)=38 

1000 FORR=1TOG:FORI=1TOFCR)ZREADWEDS(R)=DS(R)+CHR$CW) ENEXTEGOSUBZI0:NEXTR 

1010 DATAZOS,184,191,191,191,191,191,100,128,190,179,189,128,175,176,159,128,190 

,479,131,128,191,1797,189,128,191,164,191,128,190,179,189,225 

1020 DATAL91,191,191,149,128,128,128,128,143,128,143,128,128,131,128,126,199,140 

1140,128,143,130,141,128,131,128,131,128,143,128,143,160,190,180,222 

1030 DATAL39,191,191,191,191,191,195,128,128,128,128,120,191,191,1897,128,190,131 

1199,1280,174,179,147,128,128,128,128,128,128,128,184,191,191,191,1097,144,232 

1040 DATASL31,191,1297,128,130,131,129,128,140,140,195,128,128,126,128,128,128,130 

1139,143,443,143,143,191,222 

1050 DATA191,131,189,128,171,151,128,190,179,189,128,191,164,152,191,128,190,179 

1189,128,191,464,170,149,130,171,151,129,168,183,147,129,136,183,179,129,220 

1060 DATA 143,440,135,128,142,141,128,143,128,143,128,143,128,128,143,128,143,12 

8,143,128,143,128,1397,133,128,138,133,128,130,141,140,192,136,140,142,129 

1070 RETURN 

MUMRXRAKKNRRKRA RN RA 

"xx CRISTIANO TELLES RIBEIRO xx 

"xx BRASILIA-DF TEL: 248-0317 xx 

é 4 5 o E RS TE > E DD RS 



































































MICRO SISTEMAS, maio/86 











—— A SB/DADOS coloca à disposição de —— 
executivos e profissionais em geral uma 
bateria de Aplicações desenvolvidas em 
—— Lotus 1.2.3 e DBase/lll especificamente 
para áreas administrativas e financeiras, 
— tais como: — 


Tere a) Faturamento - Escala de Otimização - 
e Folha de Pagamento 

ontrole de Estoque - Programação de 
— Produção — 
Curva de Custos - Inventário Diário - 
Curva ABC de Estoque, etc. 


INSCRIÇÕES COM Sr. Carlos Raso - Pelo 
Tel.: 881-2227 








PROGRAMAÇÃO PARA 
MAIO E JUNHO 





TREINAMENTO PASSO A 
PASSO E 
—— e Trabalhando com DBase/ll Ee, 
12 a 16/maio - 02 a O6'junho - 20h 
e Desenvolvendo com DBase/Hl id 
05 a 09'maio - 16a 20:junho - 20h 
e Redigindo com Wordstar 
—— . 12a 16'maio - 09a 13junho - 20h — 
— * Redigindo com Word 
26 a 28'maio - 02 a O6:junho - 20h 
e Integrando com Lotus 1.2.3 fes 
ss, 05 a 09/maio - 02 a O6junho - 20h 
e Como operar o Supercalc Ill 
——  05a09maio - 16a 20'junho - 20h o 





TREINAMENTO AVANÇADO 


—— e DBase/ll para Programadores — 
12 a 06'maio - 09a 13'junho - 24h 


e DBase/lll para Analistas 
—— 19 a 23'maio - 23a 27;junho - 24h — 


e Lotus 1.2.3 para Usuários 
19 a 23'maio - 09a 13junho - 20h 


—— FORNECEMOS: mt 


e Material didático “Quik Reference” es 
— “710 micros PCIBM 

e 1 telão 52” 

e Flip chart - lousa japonesa 
—— eRetro a 





FORMA DE PAGAMENTO: 


— 50% na matricula e 50% no 1.º dia. — 


Far, 


sistemas DE BANCO DE DADOS 
R. Groenlândia, 1750 - J Europa - CEP 01434 


Tel.: (011) 881-4599 


Sao Paulo - SP 





msx msx msx ms 








Speed Race 





Marcelo Lima 


Speed Race é um jogo desenvolvido 
no micro Expert, podendo rodar em 
qualquer outro equipamento da linha 
MSX. 

Visando possibilitar a compreensão e 
facilitar possíveis aprimoramentos, é 
descrita, a seguir, a estrutura do progra- 
ma: 


Qfarric 


Na ADDRESS voce devora 
qualquer tipo de 1] 
CTT) 


Exclusivo metodo de ensino 
VIDEOTEACH que se utiliza da 
mais moderna tecnica VISUAL 
o video-cassete. 
Edição microcomputarizada, 
Curso de BASIC TOTAL, e de 
APLICATIVOS applz é. 
TURMAS ESPECIAIS 
PARA EMPRESAS 
FAÇA SUA RESERVA JA PELOS 
TELEFONES: 
041 2141-5348 e 011 212-0370 
ADDRESS 
Video 
Computer 
Connection 


" ú strada Dnple computer 
apple maco regis 


Rua Natingui, 1199 
CEP 05543 — São Paulo — SP 
Alto dos Pinheiros 
































Linhas 10 a 110 — Montam as figuras 
usadas pelo programa; 

Linhas 120 a 190 — Preparam a tela e 
estabelecem alguns parâmetros; 

Linhas 200 a 240 — Constituem a ro- 
tina principal do programa; 

Linha 300 — Atualiza os dados; 

Linhas 310 e 320 — Desenham o nos- 
so carro e o carro adversário; 

Linhas 330 a 350 — Lêem o estado 
do joystick; 

Linhas 500 a 530 — Sub-rotina de ex- 
plosão; 

Linhas 600 a 620 — Atualizam o re- 
corde e recomeçam o jogo; 

Linhas 700 a 740 — Apresentam o 
jogo; 


O GCREENI,3, O:KEYDFF: J=3 
5 GOSLUBBOG 
O FORI=1 1032: READA 
30 S6=58+CHRE (A) 
à NEXTISSPRITES(1) =58 
50 G8m''t 
90 FÓRI=1 TO3S2Z;READA 
Loo S6=58+CHR$ CA) 
110 NEXTISSPRITES(O) =S4 
120 CLS:6G0T0700 
130 FORI=OTO2Z2: LOCATES, ISPRINTCHRS (215) 
FLOCATEILB, IE PRINTCHRS (215) INEXTI 
140 LOCATEO, 4: PRINT" Tempo" 
150 LOCATEO, P:PRINT"Vvidas" 
140 LOCATEO, 19: PRINT"Ptos. " 
170 LOCATEO, 19: PRINT"Veloc" 
175 LOCATEZO, 4: PRINT"Record": LOCATEZZ, & 
IPRINTUS ING" WUNA" RE 
180 ONSPRITEGOSUBSOO 
190 Ve=iVI=S:P=0: TIME=0:X=134;7=-20! y=9 
0:B=120 
200 F=INT(RND(-TIME) 410): IFE=STHENL=ISE 
LSEL=22 
205 SPRITEON:J=-] 
210 FORG=1TOL:Z=7+3+V: IFZ>I9POTHENZ=-20: 
P=P+LO 
214 I8=INKEYS 
215 IFIS="A"ORIG="a"THENV=v+1 
216 IFIS="Z"0RIS="7"THENV=Vv-1 
217 IFV>ISTHENV=15ELSEIFV<ITHENV=1 
218 SOUNDI, (15-V) : SOUNDS, 15: T=INT(TIME/ 
60) Y=y+] 
220 IFY<67THENY=67ELSEIFY>134THENY=134 
230 GOSUR320: GOSUBZ3O: BOSUB300: NEXT 
240 GoTOZÃO 
300 LOCATEO, 6: PRINTUS ING" QUA"; TILOCATE 
2, MS PRINTVISLOCATEO, 16: PRINTUS ING" qUHA 





Speed Race 





Linha 800 — Sub-rotina de som; e 

Linhas 1000 a 1010 — Dados para a 
construção das figuras. 

Para jogar é necessário utilizar um 
joystick. Pressionando-se o botão 1 do 
mesmo, a velocidade aumenta; e pres- 
sionando-se o 2, ela diminui. Para os 
que não possuem joystick, e desejam jo- 
gar através do teclado, bastará inserir e 
mudar as seguintes linhas: 


214 Ié=INKEYS 

215 IF 16="St OR I8="s" THEN Vay+l 

216 IF 16="7" OR 1I8="z" THEN V=V-1 

330 AmSTICK(O): IF A=3 THEN X=X+H ELSE 1 
F A=s7 THEN x=x-B 


OBS: Para se obter o caráter [Mi da 
linha 130, pressiona-se as teclas SHIFT, 
L-GRA e P, simultaneamente. + 





"CSPELOCATEZ, ZLPRINTUS ING" ANS Vs RETURN 


3 PUTSPRITEL, (X,B), 6: RETURN 

320 PUTSPRITEZ, (Y,72),5, 17 RETURN 

330 A=STICK (O): IFASSTHENK=X +BELSEIFA=7T 

HENX=X-B 

335 IFA=1THENH=100ELSE LFASSTHENES= 120 
340 1IFX>134THENKX=134ELSEIFX67THENX=47 
350 GOSURZ1O: RE TURN 

500 PUTSPRITEO, (X+3e], 110), 15: SOLUNDO, O; 
SOUNDA, O: SOUNDS, 31: SOUNDZ, 1: SOUNDS, 16785 

OUNDI1, 100: SOUNDIZ, 1003 SOUNDIS, P 

305 SPRITEOFF 

310 FORO=1TOZO00:NEXTO: PUTSPRITEO, (0,0) 
sO:PUTSPRITEZ, (255,0) ,6,1 

S20 Vi=VI-1:1FVI=-1THENGOTOG00 

530 V=0: X=134: 7=-20: GOSUBHOO: RE TURNZOO 

600 PUTSPRITEL, (X,B),0 

610 IFP>RETHENRE =P 

é20 GOTO 120 

700 DPEN“GRP: "FOROUTEUTASH1 

710 SCREENS 

711 PSET(SO, 30): PRINTA, "SPEED" 

712 PSET(90, 60) 

715 PRINTAL, "RACE 

720 CLOSE 

730 FORI=1T03000:NEXTI 

740 SCREENLICLS: GOSUBBOC: GOTO1 36 

SOUNDO, 255; SOUNDI, 15: SO0UND6, 313 SOUN 
SOUNDS, O: SOUNDI 1,0: SOUNDIZ, O: SOUND 





255, 223,31,47,17,17 
0,0, Pb, 224, 224,96 
10,0,0 
11597,63,63, 
248,252,252 
250,240,192,5,2,80,0 





DD, Os 
1010 DATA 
31,30,7 
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Z sempre Novidades 


———— ESPECIAIS 


Estes programas foram considerados os melhores, até hoje, em suas modalidades, 
Caneta Ótica = Deskmate « Gold Runner « Karaté = Knock Out = Marble Maze » Pitstop | 
Module Man « Shock Tropper »P 51! Mustanga OS-9:Sist, Operacional = Batalha Naval 















COLOR 


CP-400,Color 64.MX 1600 .etc. 


ADVENTURES : 
co [ro] Programa [Manu | Preço | Descrção 












































PDO'Z D Blackbeard's island Não 128,00 
PDDO!3 D Dalias Quest Inglês 128.00 Programas onde você responde 
PDOIS D Marooned Não 128,00 as perguntas a medida em que 
st e ao vive uma aventura emocionante. 
PD 020 F:D Vortex Factor Não 48,00 Alta resolução gráfica. 
JOGOS 
PJ 106 F'D Brewmaster Não 48,00 Ajude o garçom à serviras cervejas 
PJ 109 F:D Chambers Não 48.00 Excelente Um dos mais bonitos e movimentados jogos de labirinto 
P$ 10 F'D Columbia Não 48,00 Sobrevos o mundo inimigo defendendo sua nave 
Py tt! F/D Crazy Painter Não 48,00 Tente pintar o vídeo combatendo os chatos que tentam unpedir 
PJ 112 FD Downiand Não 48 00 Uirrapasse obstáculos e apanha os tesouros escapando dos pingos 
PJ 113 OD DragonSlayer Não 128.00 Adventure mesviado com aberto Excepoonal!! 
P4415 FD Fighter Pior Não 48,00 Mas um combate aéreo, bom programa no gérero 
PJ1N6 D Ghana Bwarna Inglês 128,00 Faça uma incursão 30 termtório mumgo para recupera seu baião 
PJ117 FD God Runner Não 60,00 Aventura baseada no fime Load Runner 
PS) VS FD Jows Não 48,00 Estio packman. Considerado o melhor deles Você crua iabentos 
PJ 120 FD Karaié Não 60,00 A grande sensação Só vendo para crer 
PJ121 FD KngTua Não 4800 Capture suas coroas escapando das serpentes « dos fantasmas 
PJ.122 OD Knock Out inglês 14000 Lutade boxe. Tridimensional Sensacional 
P$ 123 FO Marble Maze Inglés 60,00 indescritível. Labirinto tridimensional Um dos melhores do ano 
PJ IZs FD Module Man Não 60.00 Outra sensação. Dos mais vendidos nos ELA 
PJ 126 FD Mr. Dig Não 48,00 Ajude o coelho a comer suas cenouras 
PJ,127 D OneonOne Inglês 128,00 Jogo de basquete muito difundido nos ELA. Um contra um 
PJ,128 F/D Pegasus Não 48,00 Similsrao Buzzard Bait. Gráficos de nitissima qualidade 
PJ.129 F:D Pengon Não 48,00 Ajude o pingúim a eliminar os insetos com seus cubos de gelo, 
PJ130 O Pitstopll Inglês 140,00 Empolgante corrida c/ reabastecimento e troca de pneus. Até 2 jog 
PJ 132 F:D Shock Trooper Não 60,00 Considerado junto c' Marbie Maze. os dom melhores prog. do ano 
P3.133 F;D Shooting Gallery Não 48,00 Galeria de tiros de um parque de diversões Musto bonito 
P$ 135 F/D Sreiiar Lifeine Não 48,00 Proteja seu comboio do ataque dos alienigenas 
TRADICIONAIS 
PP 003 FD gatalha Nava Port 100,00 A tradicional, em aita resolução Lindissemal!! 
PPOIO FD Brage Nã3o 48 00 Para os amantes deste tipo de jogo 
PP 011 F:'D Gomoku and Renju Não 48.00 Tradicional passatempo orenta! em tabulero 
PPOIZ FD Moreyopaiy Não 48 00 O banco mobxiáro que você já conhece Drveridisamo 
SIMULADORES 
PS 004 F/D Boeing 747 inglês 8000 Simulador Cabine de Boeing 747 
PS 005 F/D P-51 Mustang Inglês 100,00 Simulador de vão Cc! combate entre dois comput ou contra o seu 
PS.006 F SR71 Pon 80,00 Simulador de vôo em tempo de guerra 
APLICATIVOS 
E001 D OS-9:Sist Operacional Inglês 800,00 Sistema operacional multiusuário, multitarefa em real tima 
PA 031 F'D Caneta Ótica Port 250,00 Lightpen. Acompanha software « manual 
PA096 D Controle de Assinantes Port 0000 Capacidade para 900 assinantes 
PA0IZ D Controie de Estoque Port 500,00 Capacidade para 630 mens 
PAO D Deskmare inglês 500,00 Sist integrado composto de seis programas baseado no Lotus | 2.3 
PAUS D ProCoior File Enhanced inglês 40000 A grande sensação em bancos de dados 
PGOS D Cocomasil inglês 30000 O grande conhecido dos usuáros, agora com controle por teciado 
UTILITÁRIOS 
Puma O Disk Drve Angiyrer Não 300.00 Anahsador de funcionamento de drives com varios tipos de reste 
PU 022 FO HI-RES Il inglês 12000 Transforma o video de seu color para sita resolução Bem versáti 
PU OZ3 FD Mi Basic inglês 320.00 O mas poderoso compilador 
PÚoZs D Pratecior inglês 360,00 Potente protetorde programas criados por você Ninguém abre 
PU 025 F:D Tapedupe Não 280,00 Duplicador de frtas. Duplica ftas protegidas, menos da Micromaa 
PU-027 F/D Utihty Routmes Inglhs 200,00 28 rotinas utilitárias para seus programas. Agora em fita 








Importante, Os programas que tenham opção F ou D estão com seus preços na versão Fita, Para 
aquisição em Disço, anexar C7% 80,00 de Disco e Embalagem. 








Faça seu pedido pelo correio, 

para o endereço abaixo, 

anexando Cheque ou Vale Postal e 
receba, SEM MAIS DESPESAS, 
em aproximadamente 15 dias. 


X 


MICROMAQ Rua Sete de Setembro, 92 - Loja 106 - Tel. 


ip 


222.6088 - 


M 


MSX 


JOGOS 


ANTARTIDA ADVENTURE — Um gostoso passeio pela 
Antártida acompanhado de um pinguim. Preço: À 

KEYSTONE KAPERS Prenda o ladrão antes que seu 
tempo acabe Preço; À 





GALAGA idêntico do “FANTASTICO” do fliperama 
Realmente FANTASTICO Preço: A 
LUNAR Um passeio com seu jgep lunar pode não ser 


muito tranquilo Preço À 

PADEIRO MALUCO Nesta padaria existem raposas 
prontas a acabar com « sua produção Não deixe isto acontecer 
Preco A 

GALAX — Num mundo imeal e menarráve! você deve lutar 
para sobreviver Preço À 

ROAD FIGHTER Escolindo na Europa como o melhor 
game para à Inha MSX em 1985 Emtrzante corrida de carros 
por praias, estradas pontes e etc Preço B 

cosmo Defenda a sus base contra os 
níveis de dificuldade. Preço A 

CANNON Você & o uúlimo soldado da sua artilharia 
Defenda o seu forte usando o canhão, Os tanques e aviões 
inimigos estão atacando Preço: À 

COELHO MALUCO - scale o prédio evitando Ds putros 
animais e pegando o máximo de cenouras possivel. Preço: A 

DIZZY BALL — As pedras vão rolar Não deixe que calam 
sobre você, Quebre todas possíveis para pegar os potes P A 

FLIPPER Sinta-se numa das melhores mesas de FLI 
PERAMA Preco A 

FAIXA PRETA 
sinos Preço: À 

BOEING Simulador de vôo 

POLAR STAR Num planeta distante você deve invadir 
as bases do inimigo e destruílas Preço A 

SHADOW ADVENTURE Você esa o piloto de um 
avião espião que cru na SIBÉRIA Não se deixe pegar pelos 
mimgos nem fro Requer conhecimentos de INGLES. P A 

SUPER COBRA  Comoseu neiicópiero invada a base 
inimiga sem ser capturado. Preço A 


nvasores 9 


Lute contra animais e lutadores assas 


Preço: B 


TURBOAT - Entrente os pergos com a sua lancha a jato 
dentro de um rio Preço A 
MR. CHIN O grande equilibrista de pratos, Mr. Chun, 


não pode deixar que Os pratos caiam nem ser pego por terriveis 
assassinos, Preço: À 

FROGGER Ajude o sapoatravessar arua soro. PA 

ARVORE MÁGICA  Subao mais alto que puder nesta 
árvore e repleta de armadilhas: Preça: A 

OLIMPIADA | — Alguns desafios para você provar que é 


um atleta Preço A 

OLIMPIADAS |! Como o anterior, mostra que você e 
um atleta Preço A 

COLUMBIA Defenda seu planeta contra as múmeras 
naves inmigas Como no Fipper Preço A 

PITFALL H Aventura na floresta (tipo ATARI P A 

RIVER RAID dêntico so do COLECO Avance no 
adentro combatendo os inimgos Preço A 


CORRIDA MALUCA - Pegue todas «s bandeiras dentro 





do labirinto mas fuja dos carros que lhe perseg: SENSA 
CIONAL Preço A 
DECATHLON Igual ao do Flipperama Preco À 


HIPER SPORT | Provas esportivas. Preço: À 

HIPER SPORTIL IDEM Tiroaoaivo Preço: À 

HERO - Destrua obstáculos, enfrente monstros e animais 
nesta emocionante aventura dentro de um verdadeiro labirinto, 
e salve sua heroína, Preço: À 

LE MANS - Sensacional corrida de carros, Mostre suas 
habilidades como piloto Preço A 

GHOSTBUSTERS Reviva às emoções do filme “Os 
Caças Fantasmas” Preço A 


EDUCATIVOS 


MATEMÁTICA INFANTIL (*» — Para cranças em fase 
de aprendizado Fxrrcita as quatro operações Dnásicas Preço: À 
MACACO ACADÊMICO 





Jogo matemático com as 

quatro operações básicas Preço: À 
APLICATIVOS Sa 
MALA POSTAL '* Um super banco de dados Total 


facilidade em apagar. alterar, buscar, ordenar e msenr registros 
3 upos de relatórios (inclusive etiquetas). Método de ordenação 
rápido Capacidade pars 100 registros com 1 campo para obser 
vações de 30 caracteres, Preço C 

TASWORD - Um poderosissmo processador de textos 
Uma quantidade enoeme de recursos. Man em inglês, Preço: C 

MAGIA - Numerologia, horóscopo e biorritmo. Preço: A 

CALENDÁRIO Calendário, tabala de conversão 
CRUZEIRO x CRUZADO. Preço: & 

GRAFICOS BIDIMENSIONAIS Uma poderosa ajuda 
na visualização das funções MATEMÁTICAS criadas pelo 
usuário Aceita qualquer função matemática. Preço: B 


[*) — PROGRAMAS DESENVOLVIDOS NA MICROMAQ 
TABELA A C:$ 5000 d - Cr$ 70,00 € Cz5120,00 


Rio de Janeiro, RJ - CEP 20060 


Vá 


A equipe técnica de MICRO SISTEMAS avaliou, em seu CPD, 
o desempenho de três produtos disponíveis no mercado. 

São eles: o cartucho Toque, da Gradiente; o compilador 
BASIC, da Microdigital; e o programa utilitário Color Kit. 








Música e utilitários para seu micro 





Compilador 


para o ZX Spectrum 





m dos maiores desejos de 
U qualquer usuário de micro- 

computadores é, sem dúvi- 
da, escrever seus programas em As- 
sembler. Porém nem sempre isto é 
possível, pois programar em lin- 
guagem de máquina exige um co- 
nhecimento muito grande, tanto 
da máquina utilizada quanto da 
própria linguagem Assembler. Mas 
não é por isso que vamos desis- 
tir, afinal é para evitar esses pro- 
blemas que existem os compilado- 
res. 

Um de an é um popa 
ma que traduz a linguagem - 
SIC para a linguagem de máquina, 
que é compreendida muito mais 
rapidamente pelos computadores, 
o que permite uma velocidade 
muito maior na execução das 
rotinas. 

O compilador analisado pelo 
CPD de MICRO SISTEMAS serve 
apenas para os equipamentos 
compatíveis com o ZX Spectrum 
(TKSOX e TS 2068), estando dis- 
ponível em duas versões (para 16 
e 48 Kb). Este compilador é co- 
mercializado com a marca Micro- 
soft, sob o título “Compilador 
BASIC FP”. Seu funcionamento é 
muito simples: você escreve seu 
programa em BASIC e aciona o 
compilador com um comando 
USR, que varia de acordo com a 
capacidade de memória do seu mi- 
cro. 

Alguns poucos comandos po- 
dem sofrer alterações na sintaxe, 
o que é explicado no manual que 
acompanha o programa. O progra- 
ma compilado pode ser colocado 
em qualquer parte da memória 
disponível, exceto na ocupada pe- 
lo compilador, que deve obrigato- 
riamente acompanhar os progra- 
mas compilados. O “FP” no nome 
do programa quer dizer “Floating 
Point”; isto significa que este 
compilador aceita valores numéri- 
cos fracionados. Se por um lado 
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Compilador BASIC, 
da Microsoft, em fita. 


isto é vantajoso, pois não se fica 
limitado a números inteiros, em 
compensação perde-se em veloci- 
dade de processamento. 

As vantagens do uso de um 
utilitário deste tipo são várias, a 
começar pela maior velocidade de 
processamento de programas, que, 
após alguns testes, mostraram um 
aumento de três a dez vezes, em 
relação ao BASIC (dependendo 
dos comandos utilizados). Outra 
vantagem é a redução da memória 
ocupada pelo programa; e uma 
que não pode ser esquecida é o 
aspecto de proteção dos direitos 
autorais, pois um programa com- 
pilado pode ser comercializado 
sem o fonte em BASIC (que só o 
autor possuirá), já que é pratica- 
mente impossível recriar um fonte 
a partir de um programa-objeto 
desconhecido, Visto por este as- 
pecto, o programa compilado é 
muito mais difícil de ser mexido 


por piratas e abelhudos congêne- 
res, que vivem do trabalho alheio. 

O compilador da Microsoft 
saiu-se satisfatoriamente nos tes- 
tes e só deixou a desejar no Ma- 
nual de Instruções, que, apesar de 
ser escrito em li em com- 
preensível e ter bons exemplos, 
peca no tamanho bastante reduzi- 


Color Kit 


do (6,Scm x 10cm), o que dificul- 
ta a leitura do mesmo. 

O “Compilador BASIC FP” 
pode ser encontrado nos revende- 
dores da Microdigital, e a fita 
cassete vem com duas versões do 
programa, sendo uma para 48 Kb 
e outra para 16 Kb. Texto: Divi- 
no Carlos R. Leitão. 








ferecer uma coleção de pro- 
O gramas utilitários que pro- 
porcionem diversos melho- 
ramentos ao BASIC, além de fer- 
ramentas úteis para o desenvolvi- 


mento e a depuração de progra- 


mas, é o objetivo do Color Kit 
(que se encontra disponível em 
cassete e disquete). É, portanto, 


um software dirigido para usuá- 
rios do TRS-Color que já domi- 
nam o BASIC do equipamento e 
gostam de escrever seus próprios 
programas. 

Para auxiliar o usuário nessas 
tarefas, o Color Kit implementa 
diversas novas funções, que po- 
dem ser acessadas diretamente 
do BASIC como um comando 
normal, Dentre essas funções, 
destacam-se um editor full-screen 
que se propõe a permitir a inser- 
ção e edição de linhas em qual- 

uer ponto da tela; dez teclas de 
unção programáveis para a im- 
pressão de comandos por extenso 
e funções para a compactação de 
programas através da deleção de 
espaços e linhas de comentários 
(REM), 

Estão disponíveis ainda coman- 
dos para examinar, modificar e 
mover blocos de memória; listar 
variáveis e procurar num progra- 
ma a ocorrência de determinado 
texto ou instrução; proteger ou 


recuperar programas perdidos por 
NEW, BACKUP ou DSKINI; jun- 
tar na memória(MERGE) progra- 
mas gravados em cassete, além 
de prover o sistema de melhorias 
como feedback auditivo nas teclas 
(BEEP), vídeo reverso(caracteres 
verdes sobre fundo preto), contro- 
le da tecla BREAK e nove veloci- 
dades diferentes para a impressão 
de mensagens na tela e execução 
de programas em BASIC — in- 
cluindo uma modarsidade single- 
step, onde cada linha é listada ou 
executada por vez. 

A operação do sistema revelou- 
se bastante simples e eficiente, 
embora sua apresentação nem 
sempre possa ser considerada das 
mais elegantes. Os comandos adi- 
cionais não são associados a 
tokens, mas sim identificados por 
um ponto(.) e verificados digito 
a dígito. A sintaxe da maioria dos 
comandos é clara(.MEM para mo- 
dificar memória; .DARK para ví- 
deo inverso), embora alguns se as- 
semelhem mais a mnemônicos 
(KLOF, .MMRG, .PDLY). Tais 
grafias podem ser alteradas pelo 
usuário, embora É sigo alguma 
prática seja necessária para asso- 
ciar os nomes dos comandos às 
funções correspondentes. 

s funções de edição prova- 
ram ser eficientes, embora tenham 
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sido observadas limitações que po- 
deriam ser contornadas por meio 
de melhores práticas de progra- 
mação. A rotina de inversão de 
vídeo, por exemplo, é muito len- 
ta e produz um piscamento desa- 
gradável quando o computador 
imprime ENTER ou executa um 
SCROLL. O editor também apre- 
senta falhas de estética que pode- 
riam ser corrigidas por uma pro- 
gramação mais eficiente; sua fun- 
cionalidade, contudo, pode ser 
considerada boa. 

Os comandos que trabalham 
com a memória, como os de 
deleção de linhas, transferência de 
blocos e verificação e alteração 
do conteúdo de posições da me- 
mória, demonstraram-se igualmen- 
te eficientes, apresentando gran- 
de rapidez de execução. A ausên- 
cia de checks de parâmetros em 
algumas dessas funções não chega 
a ser considerada um erro, já que 
a utilização de tais funções 
presume algum conhecimento de 
programação por parte do usuá- 
rio. 


O manual é apenas razoável, 
sendo claro — apesar de ser em in- 


glês — apresentando porém os ine- - 


vitáveis erros na grafia de algumas 
funções e uma apresentação visual 
bastante ruim. hj usuário possivel- 
mente terá que folheá-lo diversas 
vezes para localizar novamente 
um tópico de interesse. 


O objetivo de auxiliar na ela- 
boração e depuração de progra- 
mas, no todo, pode ser considera- 
do plenamente atingido, e, nesse 
sentido, o saldo do programa é 
bem satisfatório. Texto: Cláudio 
Costa. 


Nome: Color Kit 
Linha: TR$-Color 
Comercializado por: Micro- 


e AR Rus Sete 


de Se- 
tembro, 92 - Loja 106 - Cen- 
tro - Rio de Janeiro - 
Telefone: (021) 222-6088 
Preço: Cz$ 200, 








Toque, da Gradiente 


tilizar um micro como um 

U erador musical eletrônico 
uma idéia que certamente 

já passou pela cabeça de muitos 
usuários. É exatamente esta possi- 
bilidade que a Gradiente Eletrô- 
nica e a software-house Moreira 
e Burd Informática e Educação 


LTO1 - 


(antigo CEBI) colocam à disposi- 
ção dos usuários de micros com- 
patíveis com o padrão MSX no 
Brasil (Expert e Hot Bit), através 
do seu recente lançamento: “To- 
que”, 

Toque é um cartucho conten- 
do um sistema completo para cria- 








Cartucho Toque, da Gradiente. 


ção, reprodução e edição de melo- 

ias. Com ele, você terá ao seu alcan- 
ce um órgão eletrônico com cinco o 
tavas, oito instrumentos (piano 1, 
piano 2, clarineta, banjo, sino, 
vento, flauta andina e celesta), 
além de 16 ritmos selecionáveis, 
que vão do bolero ao rock & roll. 


Além de selecionar a oitava, o 
ritmo e o instrumento, o usuário 
também poderá modificar os pará- 
metros de tempo (velocidade ou 
andamento do ritmo), volume do 
instrumento e afinação. 


Para carregar o programa, bas- 
ta encaixar o cartucho num dos 
slots do micro e aguardar o surgi- 
mento do menu de opções, quan- 
do então o usuário poderá selecio- 
nar uma das funções disponíveis. 


Uma característica interessan- 


te deste programa é que ele pode 
ser utilizado por qualquer pessoa, 








desde que ela possua um grau mí- 
nimo de alfabetização. Isto é pos- 
sível porque o menu é bastante 
simples, com todas as opções sele- 
cionáveis através de uma ou, no 
máximo, duas teclas de função. 


É preciso observar que neste 
programa a tecla RETURN serve 
para interromper ou iniciar a exe- 
cução de uma tarefa (seleção de 
uma opção, execução de uma mú- 
sica ctc.); e a barra de espaço 
serve para fixar uma opção após 
ela ter sido selecionada. 

Toque também possui duas 
características interessantes que 
são a programação de melodias ou 
ritmos em tempo real e a progra- 
mação e execução de melodias 

sso-a-passo. programa tem 
ons recursos musicais, além de 
ser simples de usar, e o cartucho é 
fornecido numa embalagem invio- 
lável, juntamente com o manual 
que o acompanha, que é de ex- 
celente qualidade, de fácil compre- 
ensão e muito bem ilustrado. Tex- 
to: Carlos Alberto Azevedo. 
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Os circuitos integrados são o coração de qualquer computador. 
Conheça um pouco mais neste artigo sobre sua técnica de projeto. 








Circuitos dedicados 


José Roberto de Almeida Amazonas 


m circuito integrado (CI) é 
um conjunto de elementos de 
circuito, conectados de forma 
inseparável, fabricados sobre 
um único substrato”. 

À definição acima, apresentada por 
Jack Kilby em 1958, devemos associar 
o conceito de níveis de integração, os 
quais dão uma idéia do número de ele- 
mentos de circuitos integrados, isto é, 
fabricados em um único chip. A figura 1 
mostra uma possível classificação dos 
níveis de integração. 

A fabricação de um Cl exige, qual- 
quer que seja a tecnologia escolhida, a 
execução de uma série de etapas de pro- 
cessamento, tais como: difusão, oxida- 
ção, implantação iônica, deposição de 
silício policristalino e metalização. 

O conceito de pré-processamento de 
um circuito integrado até seus estágios 
finais, para uma posterior diferenciação 
pela utilização de padrões de metaliza- 
ção distintos, nos conduz à abordagem 
de projetos semidedicados. Este concei- 
to, historicamente, data do início dos 
anos 70. 

No início, as tecnologias básicas de 
fabricação de Cl eram as tecnologias bi- 
polares ECL e TTL e a tecnologia MOS 
de canal P. Além disso, a complexidade 
dos chips dificilmente ultrapassava 100 
portas por chip. As famílias lógicas stan- 
dard, tais como DTL, TTL, ECL e 
CMOS, de complexidade SSI e MSI, 
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apresentavam franca expansão. O surgi- 
mento dos LSI no início da década de 
70, e a revolução do conjunto micropro- 
cessador-memória, que viveu seu apo- 
geu a partir de 1975, fez com que esses 
componentes fossem largamente utiliza- 
dos para o projeto de sistemas. Esses fa- 
tos reunidos postergaram o desenvolvi- 
mento dos circuitos dedicados e semi- 
dedicados para o início da década de 80. 






de tipos de circuitos únicos necessários 
para uma aplicação particular cresce si- 
multaneamente. Esses dois fatos (o gran- 
de número de circuitos e a complexida- 
de crescente) acarretaram uma explosão 
do tempo e custo do projeto de um cir- 
cuito, limitando as soluções oferecidas 
pelos CI, LSI e VLSI dedicados às apli- 
cações de alto volume de produção. 

Para manter o custo de desenvolvi 





Nº 





de Elementos 











Os avanços das técnicas de fabricação 
de componentes criaram a oportunida- 
de para fabricantes de CI oferecerem 
produtos cada vez mais complexos, com 
um desempenho a nível de sistema mui- 
tas vezes superior ao conseguido com a 
utilização de diversos produtos standard 
SSI/MSI. Esses avanços tecnológicos in- 
centivaram o desenvolvimento de circui- 
tos inteiramente dedicados às aplicações 
a que se destinaram. Entretanto, com 
o aumento da complexidade, o número 


SSI(Small Scale Integration) 
MSI(Medium Scale Integration) 
LSI(Large Scale Integration) 


VLSI(Very Large Scale Integration) 
Figura 1 — Classificação dos níveis de integração. 






algumas dezenas 
100 a 1000 
5000 a 50.000 
mais de 100.000 





mento em um nível razoável, bem como 
diminuir o tempo de desenvolvimento, 
as abordagens semidedicadas tornam-se 
cada vez mais populares pela facilidade 
de adoção de ferramentas computacio- 
nais que permitem a automação do pro- 
jeto. 


METODOLOGIAS DE INTEGRAÇÃO 


Antes de se abordar de maneira um 
pouco mais detalhada os CI dedicados 
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= es Seja qual fora cunha, cája qual for a linguagem... — 


e semidedicados, um projetista de siste- 
mas deve perguntar: por que integrar? 

Em primeiro lugar deve ser observa- 
do que as vantagens proporcionadas pela 
tecnologia LSI só podem ser alcançadas 
quando a maior parte da eletrônica de 
um sistema é integrada em um ueno 
número de circuitos integrados. Obser- 
vada esta condição, as vantagens da inte- 
gração são: 

e Diminuição de custos; 

e Melhoria do desempenho do equi- 

pamento; 

e Aumento da confiabilidade do sis- 

tema; 

e Redução da dissipação de potência; 

e Diminuição da placa de circuito im- 

presso; 

e Economia em estoques de compo- 

nentes, 

e Economia em manutenção de equi- 

pamentos; 

e Proteção contra cópias. 

As soluções dedicadas e semidedica- 
das oferecidas pela indústria de semicon- 
dutores podem ser comparadas em ter- 
mos de hierarquia dos estilos de proje- 
to e tempos de desenvolvimento asso- 
ciados, mostrados na figura 2. 

Os circuitos dedicados (full custom) 
constituem a maneira mais eficiente 
para se realizar qualquer função eletró- 
nica no que se refere à capacidade de in- 
tegração e desempenho do circuito. 
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Figura 2 — Estilos de projeto e rempos de desenvolvimentos típicos, 


Uma vez que o circuito todo deve ser 
projetado e que todos os níveis de más- 
cara são necessários para o processo, 
este estilo de projeto apresenta os maio- 
res custos e tempo de desenvolvimento. 
Diante disto, sua adoção é feita, princi- 
palmente, para aplicações que apresen- 
tam alto volume de produção e/ou exi- 
gem elevado desempenho. A exigência de 
elevado volume de produção tem dimi- 
nuído a cada dia pelo estabelecimento 
de silicon foundries que conseguem ter 
uma elevada produção composta de 
grande número de tarefas de pequeno 
volume, e pelo contínuo desenvolvimen- 
to de ferramentas de CAD, o que acar- 
reta a diminuição dos custos de projeto. 

Os circuitos feitos com standard cells 
utilizam um conjunto de células previa- 
mente projetadas e caracterizadas, que 
constituem, então, uma base de dados 
para o projeto. Uma vez que as standard 


cells são tipicamente retangulares e pos- 
suem os acessos de entrada e saída em 
posições padrões, um elevado nível de 
automação de projeto pode ser conse- 
guido, diminuindo o tempo e custo de 
desenvolvimento. Deve ser observado 
que todos os níveis de máscara são ne- 
cessários para o processamento, o que, 
se por um lado encarece a fabricação, 
por outro, aumenta a flexibilidade do 
projeto, permitindo, inclusive, o desen- 
volvimento do chamado projeto misto, 
em que as partes críticas do projeto são 
desenvolvidas full-custom e o restante 
das funções é realizado usando as célu- 
las de biblioteca. 


Os gate arrays consistem em matrizes 
de elementos de circuitos, tais como 
diodos, capacitores, transistores etc., 
dispostos de tal forma que permitem a 
definição das interconexões metálicas 
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CIRCUITOS DEDICADOS 


lo usuário em um estágio posterior. 

ma vez que os gate arrays empregam 
dispositivos fixos, previamente definidos 
em termos de localização e tamanho, 
os fabricantes podem pré-fabricar as 
lâminas através de passos padroniza- 
dos de processo (difusões, oxidações 
etc.) e armazenar as lâminas para futu- 
ra definição da metalização. Por essas 
características os gate arrays constituem 
um estilo de projeto muito rápido e de 
mínimo custo. 

As FPLA (Fuse Programmable Logic 
Arrays), assemelham-se tecnologicamen- 
te às PROM e são compradas como cir- 
cuitos standard. A complexidade atual 
das FPLA é limitada a poucas centenas 
de portas e sofrem de problemas de ve- 
locidade. 


APLICAÇÕES DE CIRCUITOS 
DEDICADOS E SEMIDEDICADOS 


A revista VLSI Systems Design, em 
sua edição de setembro de 1985, publi- 
cou o resultado de uma pesquisa, reali- 
zada em julho de 1985, junto a 90 pro- 
jetistas de sistemas, concernente à utili- 
zação de circuitos dedicados em seus 
projetos. Os principais resultados são 
transcritos a seguir: 

e Quanto às áreas de aplicações, 60% 
dos circuitos destinam-se às indústrias 
militares, aeroespaciais, de computado- 
res e periféricos; 

e Quanto aos estilos de projeto e 
considerando tanto projetos existentes 
bem como os novos, os circuitos realizados 
com gate arrays superam as standard 
cells na proporção de 3 para | (601 gate 


arrays x 175 standard cells); 

e Independentemente do estilo de 
projeto, mais de 70% dos sistemas pos- 
suem entre dois e quatro circuitos dedi- 
cados por sistema. As funções desempe- 
nhadas por esses circuitos são as mais va- 
riadas, salientando-se lógica aleatória, 
unidades lógicas aritméticas, UCP ou 
controladores e codificadores/decodifi- 
cadores para interfaces de transmissão; 


e Do ponto de vista tecnológico, 
cada vez mais, os circuitos CMOS fir- 
mam-se como a tecnologia apropriada 
aos circuitos LSI, sendo esta tecnologia 
utilizada em 75% dos projetos analisa- 
dos; 

e Finalmente, em termos de comple- 
xidade, 30% dos gate arrays possuem em 
tomo de 1000 portas equivalentes e 30 
em torno de 2000. Quanto às standard 
cells, 60% dos circuitos estão distribuí- 
dos entre 1000 e 3000 portas equivalen- 
tes. 


A SITUAÇÃO BRASILEIRA 


A situação brasileira nos apresenta 
duas realidades: a realidade do projetista 
de sistemas, isto é, do usuário em poten- 
cial, e a realidade dos fornecedores de 
circuitos integrados dedicados no Brasil. 

O universo do usuário em potencial é 
caracterizado em linhas gerais pelo des- 
conhecimento do que sejam CI dedica- 
dos, e, portanto, quais as vantagens que 
proporcionariam aos seus sistemas e 
pelo desconhecimento da possibilidade 
de projetá-los no Brasil. Faz-se, pois, ne- 
cessário um intenso trabalho junto ao 


usuário no sentido de informá-lo do que 
existe e convencê-lo das vantagens dessa 
nova alternativa. A rápida expansão da 
indústria de microcomputadores, par- 
ticularmente dos fabricantes dos com- 
patíveis com IBM-PC, tem levado os 
projetistas a se defrontarem com placas 
que não são mais passíveis de cópia, 
uma vez que seus circuitos não estão dis- 
poníveis no mercado (o IBM-PC AT pos- 
sui ao menos dois chips de propriedade 
da IBM). 

Do lado dos projetistas de CI dedica- 
dos, o Brasil dispõe de empresas capaci- 
tadas ou buscando capacitação na área. 

A título de exemplo, a ITAUCOM 
está totalmente capacitada para o proje- 
to de circuitos dedicados, poitaiado 
dentre outras, iamílias de gate arrays 
com capacidade de integração de 500 a 
4000 portas equivalentes; famílias de 
standard cells single e double metal; 
bem como ferramentas computacionais 
suficientes para o desenvolvimento de 
circuitos fulkcustom. 

Acreditamos, pois, que essas duas 
realidades, a dos usuários e a dos forne- 
cedores de CI dedicados, hoje dissocia- 
das, virão a se encontrar muito proxima- 
mente, propiciando um fortalecimento 
substancial para o desenvolvimento da 
informática no Brasil. 





José Roberto de Almeida Amazonas é Enge- 
nheiro Eletrônico, com mestrado em Enge- 
nharia Elótrica pela Escola Politécnica da Uni- 
versidade de São Paulo (EPUSP). É também 
Especialista em Radiocomunicações pela Éco- 
te Superieure d'Electricité — Paris. Atualmen: 
te, é Engenheiro de Projetos da |TAUCOM e 
Professor Assistente da EPUSP. 


O MAC 512, da Unitron 





as 


a sir Ag tpm pras 
seguiu 


or AP Il da pró, ese 
simulando os Cls, Os ida 


b encomenda, 
qui, já estão sendo fabricados por uma 
empresa norte-americana, que a Uni- 
tron prefere não divulgar o nome. 
Técnicos brasileiros, treinados também 


no exterior, estão de par- 
te do processo de fabricação, nos EUA. 


tron, a opção pei 


iro e muito menos no exterior. 


Ainda segundo o. Diretor dit do Un 
Macintosh deveu-se 


e o que 
não outros não possam 


to, performance, redução do custo 

- para grandes quantidades e necessida- 
de de menos mão-de-obra, para pro- 
dução em massa. 


MICRO SISTEMAS, maio/86 


REVENDAS (da) 
BAURU — SP 
Micrológica Tet.(0142)23-6142 
BELO HORIZONTE — MG 
ComputronixTel.(031)225-3305 
Digilógica Tel.(031)223-4966 
CAMPINAS — SP 
Soft En Byte Tel.(0192)52-6369 
CAMPO GRANDE — MS 
New Line Tel.(067)382-0682 
CATANDUVA — SP 
Catanduva MágTe!(0175)22-6167 
CURITIBA — PR 
CcsR Tel.(041)232-1750 
FERNANDÓPOLIS — SP 
Compshow Tel.(0174)42-1697 
FORTALEZA — CE 
Siscomp Tel.:(085)244-4911 
GOIÂNIA — GO 
Soft New Te! (062)224-9322 
GOVERNADOR VALADARES 
Computron Tel. (0332)21-8412 
NATAL — RN 
Maximicros Tel. (084)222-8918 
POÇOS DE CALDAS —- MG 
Micro Poços Tel.(035)]721-1883 
PORTO ALEGRE — RS 
Hercos Tet.:/0512)25-4923 
RECIFE — PE 
Croma Tel.(081)325-3493 
RIO DE JANEIRO — RJ 
Sinclair Piace Tel (021)549-2699 
Sisteco Tel.(021)220-9613 
SBC Micro's Tel.(011)448-6234 
SÃO PAULO — SP 
Cinótica Tel. 1011) 36-6961 
Benny Micro Tel.(011)570-1555 
Bolsa do MicroTel.(011)93-1102 


SP16 
PROLOGICA 


e VERSÃO 
2 drives, slims, FD/DD, 
320 kbytes 

e VERSÃO II 
1 drive FD/DD, 320 kby- 
tes, memória RAM e Win- 
chester 5/10/15 Mbytes. 


(preços sob consulta) 


PLACA. 
EXPANSÃO 
P/ SP16 


SUPRIMENTOS 


aa 
e Diskettes 5 1/4" caixaigi 
10 unidades FS/DD, eJFD/ 
DD. “O 
Formulário gômtinuo 1 via: 


ASSISTÊNCIA 
TÉCNICA 


Placa expansão de 320 kby- | DIRETO: (011) 220-5794 
tes, expandind té 640 | e Consertos, contrato de ma- 
kbytes de méks ló AM nutenção, peças de reposi-| * 


para SP-169h. 

Placa dg”CRIM para SP-16 
com 64 kbytes. Transforma 
restânte, da memória em 


RAMDISK. 


COMUNICAÇÃO 


Placa rede de comunicação 
NCT-7301, para interligar 
vários SP-16. 

Placa emuladora de terminal 
IBM 3278/3279 NCT-7101 
PCOX. 

Placa emuladora de terminal 
IBM 3278/3279 NCT-7201 
IRMA. (preços sob consulta). 


CP-500 022D-M80, 1 drive 
FD/DD, DOS-500, CP/M 80 
colunas. 

CP-500 023D-MB80, 2 drives 
FD/DD, DOS-500, CP/M 80 
colunas. 

CP-400 color || 64 kbytes. 
CP-200S, 16 kbytes (precos 
sob consulta). 


(*) IBM é marca registrada da 


International Business Ma- 


chine. 


ção (condições especiais p/ 
ass. técnica). 


INTERFACES E 


PERIFÉRICOS 


Software video texto para 
CP-500. 

Software video texto para 
SP-16. 

Modem EMBRACOM. 
CP-532C (RS232/CP500). 
Serial 300. 

Joystick CP-400. 

Placa CP/M para CP-500 M. 
80 com 128 kbytes RAM. 
Cabos de ligação micro/im- 
pressora, 


SOFTWARE 


DATAFLEX: 
Gerador de banco de dados 
relacional. 
Multi e mono usuário 8e 16 
bits. 
Gera aplicativos como: con- 
trole de estoque, contas a 
pagar e receber, cadastro de 
cliente, mala direta, folha de 
pagamento, etc. 

(Preços sob consulta) 


— 80 colunas tir ilh.). 
— 132 cóluhas (milh.). 
Fitas,parã ipressora: P-500, 
P-7204P-740, 
apra computadores. 
tabilizadores de tensão: 
kVA — 1,5 kVA, 


IMPRESSORAS 


e P.500S paralela ou serial 


150 CPS, 80 colunas, carac- 
teres normais, comprimidos 
e expandidos, gráfico com- 
patível com MX-BO. 


OBS.: compatível com APPLE, 
EXPERT, HOT BIT, SP-16, etc. 


e P-720 paralela e serial 200 


CPS 132, colunas e compa- 
tivel com MX-100. 


e P-740 paralela e serial 400 


CPS, 132 colunas. 
(preços sob consulta). 


Citty Micros Tels,(011)831-0944 
Iguatemicro Tel.:(011)815-9701 
Garra Tel.(011)884-3042 
NC Micro Tel.(011)533-4388 
Opus Tel.(011)273-5757 
Provac Tel.(011)274-5861 
Tropical Tel.(011)543-9859 
Sisec Tel.(011)283-0853 
Cistec Tel.(011)288-5413 
SOS Comp. Tel.(011)826-0466 
SÃO VICENTE — SP 
Alta-Resol, Tel.(0132)67-2496 
TAUBATÉ — SP 

Ensicom Tel.(0122)33-2944 
SÃO CARLOS — SP 

HDG Tel, (0162) 72-2449 
ARAÇATUBA — SP 

Produza Tel, (0186) 23-0519 
RIBEIRÃO PRETO — SP 
Datadados Tel, (016) 635-2331 
UMUARAMA — PR 

CBM Tel,(0446)23-2233 
VITÓRIA — ES 

Casa dos TelTel.(027)222-501 
Composoft 222-5758 

WR Comp (027) 








JAMES, M., PASCAL para 
Micros, Editora Campus. 


O livro introduz o usuário ao 
uso da linguagem Pascal, permitin- 
do que qualquer pessoa com pou- 
co conhecimento de computação 
seja capaz de compreendé -lo. 

Assim, os capítulos 1 e 2 in- 
troduzem idéias gerais de como é 
um programa Pascal; nos dois 
capítulos seguintes são mostrados 
os blocos fundamentais da lingua- 
gem; e no quinto capítulo, o 


autor explica como ela é 
usada e como são escritos os pro- 
gramas 


A partir daí, o livro apresenta 
outras características mais avança- 
das do Pascal, trazendo, em dois 
capítulos, programas completos 
com comentários e exemplos. 


BOTELHO, C. A., BASIC 
Prático, Editora McGraw-Hill. 


Em BASIC Prático, o autor 
procura introduzir o leitor na pro- 
gramação de micros de maneira 
informal. O livro é dirigido espe- 
cificamente aos usuários do Apple 
tl e contém explicações sobre to- 
das as instruções entendidas pelo 
equipamento (foram omitidas ape- 


nas as de uso profissional, dado o 
caráter introdutório do livro). São 
quatro as partes principais da obra: 
Introdução aos Computadores e 
às Linguagens de Programação; 
BASIC Básico; BASIC Avançado e 
Conclusão. 


CLAYBROOK, B.C., Técnicas de 
Gerenciamento de Arquivos, 
Editora Campus. 


Destinado a estudantes e pro- 
fissionais de Informática, o livro 
aborda o gerenciamento de arqui- 
vos, enfocando principalmente as 
organizações de arquivos e os as- 
pectos de hardware e software 
envolvidos na criação e manipu- 
lação dos mesmos. P 

Os capítulos tratam de assun- 
tos como Estruturas comuns de 
arquivos (sequenciais; sequenciais 
indexados; e de acesso direto); 
Organizações com estrutura de ár- 
vore e de lista; Sistemas de arqui- 
vo; Classificação; Proteção; e In- 
trodução aos sistemas de banco 
de dados. Ao final de cada capí- 
tulo são apresentados exercícios 
para revisão do assunto abordado 
e também uma relação de refe- 
rências que serve como material 
suplementar. 





NETO, A. M. M., Lotus 
1-2-3/dBase |ll, Editora Atlas. 


ANDRÉ MARESCHI MASILI NETO 


e Sistema feencal de 


co de Dados 
“Ar » dos comandos e funções 
* Programação 


* Aplicações práticas 
Migrosaru 
atlos 





O primeiro livro é uma espécie 
de manual do Lotus 1-2-3 e visa 
apresentar de forma simplificada 
como este software pode facilitar 
o acesso e a manipulação de dados 
nos micros compatíveis com o 


IBM-PC. São abordados tópicos 
como Sistemas de Computação, 
Planilha de Cálculos, Conceitos 
básicos do Lotus 1-2-3 é Aplica- 
ções práticas. 

Outro lançamento da Editora 
Atlas é o livro dBase /!!, que pro- 
cura ensinar, em princípio, o 
usuário a operar diretamente com 
arquivo de dados e, posteriormen- 
te, mostra a opção de trabalho 
no modo programado, sem a 
interferência do operador. Dentre 
os temas abordados na obra, 
podemos destacar: Gerenciador de 
banco de dados; Conceitos bási- 
cos do dBase Ill; Análise dos co- 
mandos e funções e Aplicações 
práticas. 





ENDEREÇO DAS EDITORAS 





Editora Atlas — Rua Conselheiro 
Nébias, 1.384, CEP 01203, tel.: 
(011) 221-9144, Campos Elísios, 


São Paulo; 


Editora Campus — Rua Barão de 
Itapagipe, 55, CEP 20261, tel.: 
(021) 284-8443, Rio de Janeiro; 
Editora McGraw-Hill — Rua Ta- 
bapuã, 1105, CEP 04533, tel.: 
(011) 280-6622, Itaim Bibi, São 
Paulo. 


Quem tem tradição 
em software tem tudo. 


Faz a Folha de Pagamento de sua 
empresa, emitindo relatórios como 
Guia de IAPAS, Guia de FGTS, Relação 
de Empregados, Relação para |.R., 
Relação para Banco, Informe de 
Rendimentos, Acumulados Anuais, 
RAIS e Recibo de Pagamento, A folha 
pode ser semanal ou mensal. As 
tabelas são modificadas pelo próprio 
usuário. 

Permite também, adiantamentos de 
salário, reajuste salarial, alterações de 
acumulados e outras funções ur 
agilizem o processamento da Folha de 
Pagamento da empresa. 


A Contabilidade de um mês em apenas 
2 horas! Este Sistema permite o 
cadastramento de históricos 
padronizados e de plano de contas 
com até 5 níveis. 

Emite Diário Razão, Balancete, 
Balanço, Demonstração de 
Resultados. Demonstração de Lucros 
e Prejuízos acumulados, Listagem por 
centro de custo e extrato de contas, 
entre outras funções 


Controla o estoque de itens com 
Especificação, Estoque Minimo. 
Unidade, Fornecedor, Localização e 
outras informações relacionadas no 
item como Custo Médio, Entradas e 
Saídas no período, etc. 
Fornece Listagens Geral e Parcial dos 
tive Listagem Físico-Financeira, 
istagem dos produtos abaixo do 
estoque mínimo, Lista de Preços e 
Etiquetas, entre outras. 
Admite também, Reajuste de Preços, 
Alteração de Dados e Exclusão de 
Produtos. 


Compatíveis com as linhas TAS-BO e Apple. Também disponíveis para IBM-PC. Procure-nos para maiores informações 


A NASAJON oferece assistência 
técnica total, garantia permanente e 
mantém à sua disposição 
programadores e analistas para 
desenvolver sistemas específicos sob 
encomenda. Conte com a NASAJON 
SISTEMAS 


Av. Rio Branco, 45 - Grupo 1.311 
Rio de Janeiro - CEP 20. 


Teis.: (021) 263-1241 e 233-0615 


Empresa tdtada à ASSESPRO 








ENERGIA DE 
EMERGÊNCIA PARA 
MICROCOMPUTADORES 





ESTE VOCÊ JÁ CONHECIA 


GERATRON 


Gerador Eletrônico Portátil 


GERATRON sempre foi a 
solução ideal e econômica para 
alimentação de emergência de 
microcomputadores da linha 
Apple e TRS-80. 


Agora você tem disponível o 
GERATRON PC 500. Com 
potência de 500VA nominal e 
1500VA de pico e dotado de 
chave de transferência estática 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compatíveis com 
IBM-PC, na configuração mais 
completa, durante várias horas 
após a falta de rede elétrica. 


Mas se você precisa de mais de 
500VA, a GUARDIAN também 
dispõe do modelo 750. 


AGORA TAMBÉM 
PARA PC. 
COMPATÍVEIS 


GERATRON é marca 
registrada da GUARDIAN 
EQUIPAMENTOS ELETRÔNICOS LTDA 
MATRIZ 





FILIAL 
Alameda dos Ubiatans, 349 
CEP 04070 - São Paulo, SP 
Tel, (011) 578-6226 


S 


ENERGIA À TODA PROVA 

















Canário 
Rodando este pequeno programa, 
um efeito sonoro semelhante ao can- 


to de um canário pode ser produzi- 
do. 


Linha TRS-COLOR 


Mudando o teclado 


Devido ao tamanho das teclas, um problema que costuma acontecer aos 
usuários do CP 400 que digitam muito rápido (ao menos acontece comigo) 









FOR Xx = 0 TO 17: READ A 

11 POKE 127458 + X,A 

12 NEXT 

15 DATA 173,48,197,176,208,4 

té DATA 198,0,7240,7 

17 DATA 2465,156,0, 

20 N = RND (1) + 6:R = 1 + RND 
(1) * &6 

21 FOR X = 14 TON: POE OR 

2? CALL 12745: NEXT : GOTO 20 

k END 


é apertar acidentalmente o zero ao invés do parêntese; isto inverte os carac- 
teres e obriga a apertar SHIFT e zero novamente para voltar ao normal. Para 
evitar tais perdas de tempo durante a digitação de programas longos, entre 
com POKE 282, 1; dessa forma os caracteres permanecerão fixos no modo 
normal. Ou então você pode fazer um INPUT diferente, onde os caracteres 
da string (atenção! somente de A a Z) entrem em modo inverso; é só incluir 
POKE 282, O antes do INPUT. Em ambos os casos, POKE 282, 255 retorna 
o micro ao modo normal. 








Arthur Luiz M, Bezerra - CE Cláudio Costa - RJ 





Linha APPLE 


lnny POKESs no Apple 
20) 











o = [m| Com os POKESs abaixo, um & seguido de RETURN será interpre- 
tado: 
como LIST POKE 1413,74:FUKE 1014,165:POKE 1815,214 
como FOKE 1017. 76: PUVE 1014 1062; FONE 1015,213 
>como POFE 1017, 76:POKELGLA, LESIPLI CIVIS, OSS 
[| como PUFE 14015, 70:FUKFE 1014, ,058:F0OKE 
como FRINT CHR$(7) ..POKFE 1013,76:FOKFE 19014, 228: FPOKE 1915,251 
: Com estes três POKESs, o acionamento de RESET será interpreta- 
ul : : do: 
E Envie suas dicas para a Redação de qu E 
. ->como RUN POFE 1019,192:POKFE 1011, 2153;POKE 1012,11 
MICRO SISTEMAS na Av. Presidente 


Wilson, 165 - grupo 1210. Centro, Rio de 
Janeiro, RJ. CEP 20030 


Linha TRS-30 
PEEKSs no TRS-80 


Use os PEEKs abaixo em seus programas: 


Bruno Lopes F. Cabral - PB 





Linha TRS-COLOR 


Toque de elegância 


Esta dica, para os usuários da linha TRS-Color, consis- 
te em dar um toque de elegância na impressão de uma 
mensagem. É parecida com a dica de Jorge Pablo Zapata 
Rivera, publicada em 


: De (| F= T eco 3 : 5 
MS n9 52, para a li- So LINE INPUTMENSAGEM ASSELS 
nha Apple, com o no- 4% PR RDAN SADO 
' sa R T= 
me de impressão prO- a BS=MIDS(AS,T,1) 
fissional. 78 PRINTEC-I, B$5CHRS (207) 
10% SOUNDZBM, 1:C=C+1:NEXT T 
118 GOTO 29 








PEEI (PT) = Será 73 se o micro tor môdelo dll. 












2W1 ve estiver em BASIC residente. 





PEFK (15796) Ser à 





















PEEI 1á449) Será à se o teclado estiver em maiúsculas, 













(16412) = 





Ser4A & se o cursor tor piscante. 





PEEr 


FEEF (16419) => Contém o código ASCIIT do cursor. 









PEER (14712) AND 24H = Será 48 se a impressora estiver pronta. 


Bruno Lopes F. Cabral - PB Tárcio Nery - BA 





Linha MSX Linha ZX SPECTRUM 




















: ê o SCRECHSLF—L: COLORIL TA 
curioso desenho gráfico. soco x=1tnso 
20 CIRCLE (IDO, UG) E 
4 EoFrRLINEXT 
So dpUITOEO 


ma e observe o interes- 
sante movimento de 
formas geométricas co- 
loridas proporcionado 
por esse caleidoscópio 
na tela do seu micro. 


BORDER O QUER 1 
H i e | 10 CET E=SeINT (RND$11) 
Efeitos com Circle Caleidoscópio 20 FOR N=B TO as STEP 3 
a . LET Asôs 
Veja os efeitos produ- 5 HEM RICARDO HuniscHe id ic E A UM BESla o crau 0.178-A 
zidos com o Circle nesse pira prog caaracas DRAU O: -175+4A 


o 





17S-A: DRA 





o 
o 
o 
[a] 
R 
o 
o 
50 
50 
oo 
E 
a) 


RNDe25 


PR 
[e] 







Ricardo Hunsche - RS 


TE RIAA 


Linha MSX 


POKEANDO 


Para quem possui um com- 
patível com o MSX, aqui vão 
alguns POKEs que irão ajudá- 
lo no confeccionamento dos 
seus programas. 


- POKE 62784,N 


Faz o tabulamento horizontal 
semelhante a WIDTH. 
tminimo 1 0 máximo 49) 


« POFE 57385,N 


faz o tabulamento verti 


iminimo O e márimo 


OrE 62428,N 


Coloca o cursor na 1 
(minimo BZ e máximo É 


- POKE 62479,N 


Coloca o cursor na coluna No, 
tminimo 1 e márimo Je) 


POFE 445B1,N 

Se N +fcr qual que 

exceto a, o cur 
parecer após uma mf 

HOLE 

0 N for qual quer 

rceto D. só poderão 
impressas letras maiúsculas. 
POKE 64697,7 

Executa um CLS. 


uma linha de progra 
2 será executado 





Jorge Pablo Zapata Rivera - BA 


Linha MSX 
Desabilitando o BREAK 


o uso do 


BREAK (CTRL + STOP) em um 


Para desabilitar 


programa use este exemplo. 


|, TOP ON 
» ON STOP GOSUR 100;6411 
PRINT" MICRO SISTEMA 
END 
» CLOSPRINTOUma tentativa 
toi feita,” 
à FOR [=1 TO Z000!NEXT | 
| RETURN Jo 


A linha 10 habilita o uso do 
comando ON STOP GOSUB. Na 
linha 20 há um LOOP que termi- 











Linha 







ZX SPECTRUM 


Novas cores no TK90X 


Consiga com esta simples di- 
ca, cerca de 200 padrões colori- 
dos em seu TK90X. 









Quadrados 


Experimente esta dica e tente 
acompanhar o desenho formado 


























, á 10 FJE Pal TOR FOF Go TO” 
por uma série de quadrados. O efei- FOR naG 15,7 
: s &O PRINT INF G PAPER M 
to visual é bonito. SO NEST Mm POR mad TOS 
10 FORN = 768 TO 777: READ 1: POKE + Ate DRA da NC PORER RO 
NI: NEXT : POFE 232,0: POKE ExT E 










0! DATA: do Owty Dr Bs Sb) AD 864750 Nas linhas 20 e 40, os carac- 































30 HGR2 teres grifados devem ser redefini- 
e e Di Ac dos conforme o desenho abaixo: 
60 FORN=OTOito STEF - — am 
70 ROT= N: SCALE= 5; DRAW 1 ATL 

409,90 
Bo SCaE= €1 5: xDRAM 1 AT 140 

+90 HntAtA? 
90 SCALE= S 10: XDRAW 1 AT 140 nasas es 
100 ME : NEXT MOSSaSas 





GOTO 40 


aa JOG B do UDG 





Eduardo Eiji Araki - MG Gilberto Figueira da Fonseca - RJ 


Linha ZX SPECTRUM 


Atributos via teclado 


Não consta do manual do TK90X que, se, com o cursor E digitarmos um 
número sem, CAPS SHIFT, podemos definir o paper (de O a 7), Bright 0 (8) e 
BRIGHT 1 (9). 

Experimente digitar, por exemplo: 

Va REM (CLEMPET + S/SHIFT) 4 (C/oMIFT + S/SHIFT) 9 


"EXEMPLO! (C/SMIFT + S/SHIFTO O (C/9HIHT 4 S/SHIFI) 7 
“EXEMPLO TI” 


OBS.: Execute o que estiver entre parênteses e digite o restante. Veja o 
resultado no vídeo. 


Flávio Massao Matsumoto - SP 





LINHA ZX81 


Tecla secreta 


Se desejar proteger um programa de “olhares indiscretos” tente a rotina 
abaixo. 












13,230-(INKEY$= E 














Assim, o comando FAST da li- 
nha 1 será substituído por um 
NEW, a não ser que a tecla “C” 
(pode ser qualquer outra) esteja 
pressionada no exato momento da 
entrada do programa. Isto não é 
uma proteção contra cópia e sim 
para que só você possa rodar de- 
terminados programas. Lembre-se 
que a tecla escolhida deve ser 
apertada um pouco antes do pro- 
grama entrar na memória. 


nará ao ser acionado BREAK, 
operando a mensagem da linha 
100, e na linha 110 há uma pausa an- 
tes do retorno à linha 30. O END 
da linha 40 é só para a rotina 
não entrar em LOOP novamente, 
ao usar esta rotina em seu pro- 
grama utilize apenas os coman- 
dos da linha 10 e 20, sendo que 
na linha 20 o GOTO 20 pode ser 
dispensado. 


Sérgio Augusto Freire de Souza - AM 


Edgard Santos Rocha - RJ 


vin 
qui 








COM OS LIVROS 





T7 PROGRAMAS PARA LINHA TRS 
















O SEU DESENVOLVIMENTO COMO 
PROGRAMADOR, MEM DE DIVERTI-LO 












17 PROGRANAS PARA À LINHA APPLE 
P/OS COMPATÍVEIS COM APPLE E TEZHMO 






— Redator de Texto 


— Computação p/ crianças 
ATRAVÉS DE JOGOS E PROGRAMAS EDICA- 
VIVOS VOCÊ SERÁ INDUZIDO A PENSAR, 
RESOLVER PROBLEMAS, E TOMAR CONHE- 
CIMENTO DE COMO PODERÁ USAR BEM O 
COMPUTADOR, DE FORMA SIMPLES E DI- 





Rua São Sebastião, 360 -523-8492 


















Próximo à Estátua Borba Gato 





PROGRAMAS COMERCIAIS DA LINHA APPLE 


PAS COMPATÍVEIS COM MPRLE E TrIaAA 













TRAS & LISTARER COMPLETA DOS PRO 
RARAS MOCIPRNTAÇÃO (Fi UrONRAMA. 














Pe rTARDO DE aaqUivOS, CASTRO DE 
Ce toNTES COM Emissão E FaTuMAS 
MP ICATAS É CONTRA UE vendas, 
























O AUTOR FAL UMA ANÁLISE COMPLETA E 
EXENPLIFICADA DO PROGRAMA VISIPLOT 
FBRAFICOS) E MOSTRA COMO TIRAR DA- 
DOS, OU SEJA, INTERAGIR, COM OS 

PROGRAMAS VISICTALC E SUPERVISICAC 




















THOGRDGENTER 


COMPUTAÇÃO E INFORMÁTICA LTDA 


APRESENTA 
SOFT MSX 


APLICATIVOS 
JOGOS 
EDUCATIVOS 















— Cobol TUDO EM MICROS 

— Dbase Il Cursos — Hardware 
— Basic - Basic Disco Suprimentos — Soft 
— Basic Total ATENDEMOS TODO 
— Visicalc 
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O Macintosh colocou ao alcance de muitos usuários 
recursos como janelas e icons, que até então eram privilégios de um 


grupo bastante restrito de programadores. 








Macintosh: 


simples e genial 


Antonio Costa e Viktor Bojarczuk 


á dez anos atrás surgiu no MIT, um sistema que torna- 

va a operação do computador extremamente fácil e 

confortável. A coisa que mais chamava a atenção nes- 

te sistema era o uso de um recurso denominado jane- 
la. As janelas são basicamente folhas de papel simuladas na 
tela do computador. E, da mesma forma que as folhas, podem 
ser empilhadas, cortadas em pedaços e coladas umas nas 
outras. Várias janelas podem aparecer simultaneamente no ví- 
deo, cada uma contendo itens de informação próprios. Na 
figura 1, há duas janelas, uma chamada Macwrite e a outra 
System Folder. 

A princípio, o sistema de janelas só foi usado em LISP e, 
por isso, era invariavelmente associado a esta linguagem. 
Foi, então, que pesquisadores da Xerox decidiram implemen- 
tar um ambiente de programação idealizado por Alan Kay e 
denominado Smalltalk. Os cientistas da Xerox não só adota- 
ram as janelas, mas as aperfeiçoaram, criando os icons.Os icons 
são pequenas figuras que representam objetos do dia-a-dia. 
Há icons com forma de tesoura, vidro de cola, lata de lixo, lá- 
pis, pincel, borracha etc. Todos eles podem ser postos no 
vídeo, manipulados por um dispositivo chamado mouse e usa- 
dos como se fossem os objetos cujas formas imitam. Assim, 
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pode -se usar o icon do pincel para fazer o desenho e o do galão 
de tinta para cobri-lo. Quando um arquivo torna-se desneces- 
sário, ele é jogado na lata de lixo. 

Os icons tornaram a utilização do computador tão simples 
quanto a de utensílios domésticos. Qualquer pessoa que sou- 
besse para que serve um lápis, uma borracha ou um galão de 
tinta poderia fazer um desenho por computador. Era suficiente 
conhecer o uso de fichas, pastas e tesouras para trabalhar com ar- 
quivos. É, porém, estranho que tão poderosa ferramenta só esti- 
vesse disponível para quem menos precisava dela: os homens e 
mulheres que programavam Inteligência Artificial em LISP. Os 
programadores eventuais, as secretárias que necessitavam de 
um editor de textos e os garotos que estavam dando os primei- 
ros passos em computação só dispunham de sistemas operacio- 
nais difíceis como CP/M, MS-DOS, TRS-DOS, UNIX, APPLE- 
DOS etc. Era como dar uma cadeira de rodas para o corredor 
de maratona e deixar o paralítico andar a pé. Foi, então, que a 
Apple lançou o Macintosh, uma máquina pessoal com icons e 
janelas. 

A configuração mínima do Macintosh vem com 128 Kb de 
memória, um acionador para disquetes de 400 Kb e uma inter- 
face de comunicação serial. É aconselhável, porém, não com- 
prar esta configuração, pois ela é insuficiente para a perfeita 
utilização de vários aplicativos interessantes. 
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O Macintosh padrão vem com 512 Kb de memória. Isto é 
o bastante para que qualquer pacote de software apresente um 
desempenho satisfatório. Recentemente, a Apple lançou o 
Mac Plus. Esta versão do Macintosh tem um megabyte de me- 
mória, possui acionador para disquetes com 800 Kb de capaci- 
dade e um teclado maior. Há a opção de transformar o Macin- 
tosh padrão em Mac Plus pela substituição da placa mãe. 


IBM-PC X MACINTOSH 


Muita gente afirma que o Macintosh possui menos software 
do que o IBM-PC. De fato, a quantidade de títulos para o 
Macintosh é menor. Isto se deve, em parte, ao fato de haver 
muita redundância na programoteca do IBM, na qual constam 
dezenas de bases de dados, dúzias de processadores de texto, 
oito sistemas operacionais etc. Na programoteca do Macintosh 
raramente há mais de um título para caga aplicação, mas sem- 
pre se encontra pelo menos um. 

Dizia um poeta grego que a raposa sabe mil truques enquan- 
to o porco espinho só conhece um. O do porco espinho, po- 
rém, é bom e funciona sempre. E de quando em quando todos os 
truques da raposa falham. É difícil resistir à tentação de comparar 
o Macintosh ao porco espinho, e um exemplo mostrará por 
quê. Os autores deste artigo interessam-se por Inteligência 
Artificial, ciência que usa a linguagem LISP. O PC possui 17 
versões diferentes desta linguagem. Nenhuma presta. Já o 
Macintosh possui um único LISP, o qual é muito bom e per- 
mite, entre outras coisas, a criação e animação de sofisticados 
gráficos tridimensionais. 

| Se o IBM-PC perde para o Macintosh na qualidade de soft- 
ware, ganha na facilidade com que permite interfacear equipa- 
mentos de medida e de controle, pois expandir o Macintosh 
não é tarefa elementar. 


EDITORES 


Para dar uma idéia de quão poderoso e prático é o soft- 
ware do Macintosh, vamos descrever sucintamente os dois apli- 
cativos que acompanham a máquina: o MacPaint e o Mac- 
Write. Citaremos também o Fontastic, um software que pode 
ser adquirido à parte. 

MacPaint é um editor gráfico e MacWrite um editor de tex- 
tos. Ambos são dirigidos por menus. Alguns destes menus são: 
Menu Font — os caracteres no Macintosh são organizados em 
blocos de 220 símbolos armazenados em disquete num arquivo 
chamado System e acessados pelo menu Font. O disquete do 
MacWrite vem normalmente com blocos que implementam os 
seguintes estilos de caligrafia: Chicago, Geneva, New York, 
Mônaco, Venice, London e Athenas. No entanto, existem no 
mercado disquetes que contêm uma grande quantidade de blo- 
cos de caracteres guardados em arquivos chamados Fonte e 

ue podem ser transferidos para System com o auxílio do 

ontMover (veja a figura 1). Além disto, há um software 
chamado Fontastic que permite alterar os caracteres existentes 
bem como criar outros. O resultado disto tudo é que se torna 
possível escrever em alfabeto russo (cirílico), grego, hebraico, 
árabe, coreano etc. 

Menu Style — o menu Style possui duas opções, a saber: 

a) Tamanho — um bloco de caracteres é criado com dimen- 
sões determinadas. É, no entanto, possível alterar as dimensões 
de um caráter, dentro de uma escala que vai de 9 a 24 no 
MacWrite e de 8 a 72 no MacPaint; 
b) Estilo — além de variar as dimensões dos caracteres, o 
Macintosh modifica automaticamente o estilo. Em MacPaint, 
os estilos possíveis são: Plain Text (Natural), Bold (Negrito), 
Italic (Itálico), Underline (Sublinhado), Outline (Gordinho) e 
Shadow (Sombreado) (veja a figura 2). Em MacWrite, encon- 
tramos, além destes, Superscript e Subscript. Com o auxílio 
destes últimos é possível escrever expressões do tipo AX-Y, e 
H50. Já expressões do tipo Asa ficam com aspecto um tanto 
deselegante. Por exemplo: 
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FUESESS FONTES E ESTILOS 
PLAIN 


BOLD 
ITALIO 


UNDERBLIDE 


OUTLINE 
SHADOW 


MANHATTAN 
HOLLYWOOD 
TORONTO 
SAN FRAN[IS[0 
GREENBAV 


nos EISLEr 
CHICAGO 
LONDON 


VENUE 
MONACO 
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Com o MacPaint, as expressões são limitadas apenas pela 
resolução gráfica da tela. Assim, torna-se possível escrever: 
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Menu Edit — o menu Edit do MacWrite oferece os seguintes 
recursos: 

a) Undo Typing — este recurso permite anular a última opera- 
ção realizada. Assim, por exemplo, se você inadvertidamente 
apagar algumas linhas do seu texto, poderá recuperá-las via 
Undo Typing; 

b) Cut — com o mouse, pode-se marcar um trecho do texto e, 
utilizando o comando Cut, eliminá-lo. O trecho eliminado não 
é destruído, mas guardado numa região da memória chamada 
Clipboard; 

c) Show Clipboard — este recurso permite examinar o Clip- 
board. Cuidado, porém! Quando se guarda alguma coisa no 
Clipboard, o conteúdo anterior é destruído; 

d) Copy — este recurso serve para copiar no Clipboard uma re- 
gião do texto selecionada via mouse; 

e) Paste — paste permite inserir-se no texto, num local indica- 
do pelo cursor, o conteúdo do Clipboard. 


Com os recursos acima descritos, é possível rearranjar pala- 
vras, sentenças, parágrafos etc, dentro de um texto. 
Associando o Clipboard a uma janela chamada Scrapbook, 
pode-se inserir e retirar figuras do texto. Para tanto, basta 
abrir o menu que aparece à esquerda do vídeo (aquele com a 
maçã na figura 1) e ativar o item Scrapbook. Com o comando 
Copy ou Cut, a imagem que aparece no Scrapbook é transferi- 
da para o Clipboard. Transfere-se, em seguida, o Clipboard 
para o texto. Já no texto, é possível aumentar, diminuir, esti- 
car ou alongar a figura. 
Menu Search — Oferece as seguintes opções: 
a) Find — este recursos permite encontrar uma palavra ou par- 
te de uma palavra no meio do texto. A palavra aparece no tex- 
to evidenciada com um fundo preto; 
b) Change — este recurso permite encontrar no texto a primei- 


“Ta posição de uma palavra ou sequência de palavras preestabe- 


lecida e em seguida substitui-la por uma outra palavra ou 
sequência de palavras escolhida. É possível de uma só vez 
trocar-se uma palavra por outra em todas as posições em que a 
palavra inicial aparece. Assim, por exemplo, uma mesma carta 
que deve ser enviada para diversas pessoas pode ser escrita com 
o nome da primeira e em seguida substitui-se o nome desta 
pelo das demais em cada nova cópia. 

Tanto Find quanto Change podem ser aplicados sucessiva- 
mente de modo a determinar as posições consecutivas de uma 
dada palavra. 


57 


MACINTOSH: SIMPLES E GENIAL 


k é Fite Edit Goodies Font Fontsize Style 





Figura 3 


Além destas características, MacWrite possui obviamente 
todos os recursos de uma máquina de escrever comum: tabula- 
dores, marginadores e espaçadores. Têm-se também os alinha- 
dores que permitem que o texto fique alinhado somente à es- 
querda, somente à direita ou ambos simultaneamente. Todas 
estas operações são realizadas com o auxílio do mouse e de 
uma régua que surge no topo de qualquer documento Mac- 
Write. 

Passemos agora ao MacPaint. Nas figuras 3 e 4 vemos a 
tela do Macintosh rodando o aplicativo MacPaint. A figura 
de David, que agora aparece, foi retirada do aplicativo Click- 
Art. Os objetos que aparecem nas janelinhas da coluna da es- 
querda podem ser selecionados com o mouse e com eles pode- 
se executar as operações que estes objetos sugerem. Assim, 
com o “lápis” podemos desenhar, com a “borracha” podemos 
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Figura 5 


apagar etc. Traçada uma curva fechada, seu interior pode ser 
preenchido com um padrão qualquer a ser escolhido, entre os 
padrões que aparecem na parte inferior do vídeo. Para tanto, 
basta levar o “balde de tinta” no interior da região limitada e 
“despejar” a tinta. Outros recursos permitem o traçado de re- 
tas, retângulos, elipses etc. É possível delimitar regiões que 
podem ser arrastadas para outras áreas da tela ou então trans- 
feridas para o Clipboard e daí para o Scrapbook, de onde 
poderão passar para um documento criado por MacWrite ou- 


passado para outro aplicativo qualquer. Assim, é possível criar 
desenhos em MacPaint que poderão ser animados por um pro- 
grama BASIC. 

Como a janela de trabalho do MacPaint que aparece no ví- 
deo é bem menor do que o desenho que pode ser feito, pode- 
mos deslocar a página com o auxílio da mão, de modo que a 
tela atinja qualquer região desejada. Apertando duas vezes o 
botão do mouse, surge na tela, conforme mostra a figura 5,0 
desenho inteiro reduzido. O retângulo pontilhado que aparece 
no desenho indica a região da tela exibida por último. 
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MAIS DE 2500 PROGRAMAS PARA 
TODOS OS TIPOS DE MICROCOMPUTADORES 


INPUT é o mais completo e moderno 
curso de programação e utilização de 
microcomputadores já lançado no Brasil, 
abrangendo as 7 principais linhas de 
microcomputadores existentes. 

Você não aprende apenas teoria. 

Já no primeiro fascículo começa a programar. 
Seu micro vai render o máximo, pois os 
fascículos estão programados para que seus 
conhecimentos aumentem a cada edição. 





INPUT - Curso Prático de Programação 
de Computadores - é formado por 
seis cursos completos e independentes: o 
| Programação Basic; 
Programação de Jogos; 
Programação em Linguagem de 
Máquina (Assembler); 
Aplicações; Periféricos; q 
Outras Linguagens de Programação. 8X N 
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